$te = new HTML::TableExtract (headers => [qw(Symbol)] );
    %data = $te->parse($webpage);

foreach $key (keys %data) { # once for each key of %fred
         print "at $key we have $data{$key}\n"; # show key and value
 }