while (my $line=<MYFILE>) {
  chomp $line;
  #set up hash entry
}