@tmp = <FILE>;
foreach $line (@tmp) {
  chop $line;
  ($foo,$bar) = split(/\t/,$line);
  $HASH{$foo} = $bar;
}

foreach $key (keys %HASH) {
  print "<some html>$key - $HASH{$key}</some html>\n";
}