parsing - i want to extract table data in a html file using perl -

i'm novice programmer. have around 100 html files , each file have extract data different rows , store separately. wrote following code, 1 please me figure out flaws.

#!/usr/bin/perl -w  use strict; use warnings; use html::tableextract ; my$te = html::tableextract->new(headers => [qw('compound' 'name' 'adduct' 'adduct mw (da)' 'compound mw (da)' 'delta')]) ; @files = </home/akhila/sta/hmdb_hits/com_pks_stn/*.html>; foreach $files(@files){   $te ->parse_file($files) or die "cannot parse file";   foreach  $ts ($te->table()){     print "table(", join(',', $ts->coords),"):\n";     foreach  my$row($ts->rows()){       print join(',', @$row), "\n";     }   } }        

you need read how quota operators works in perl. try next code , immediatelly see problem.

use strict; use warnings; use data::dumper; use html::tableextract;  $te1 = html::tableextract->new(headers => [qw('compound' 'name' 'adduct' 'adduct mw (da)' 'compound mw (da)' 'delta')]) ; print dumper $te1->{headers};  $te2 = html::tableextract->new(headers => ['compound', 'name', 'adduct', 'adduct mw (da)', 'compound mw (da)', 'delta']) ; print dumper $te2->{headers};