open (FILEIN, "<", "input.file") || die "$!";
my $counter;
while(<FILEIN>){
  $counter->{$_} = 0;
}
close FILEIN;