print Dumper(\%hash);

##</code><code>##

 $line =~ s/\s+$//; # trim whitespace
 
##</code><code>##

print "<$fields[0]>\n";