chomp (my @lines = <FILE>);
my %table;
foreach my $line (@lines) {
   ...