use strict;
use warnings;
use autodie;

my %data=();
while (<>) {
     chomp;
     # ...
}
#...