my $counter=0;
my %names;
while(<>)
{
  $counter++;
  $names{"bin_".$counter} = "bin_".$counter;
}

use Data::Dumper qw(Dumper);
print Dumper \%names;