Select Code to Download

#!/usr/bin/perl -w
open( IN, "$infile1" ) or die "Can't open $infile1" $linecount = 0;
...
    $linecount = $linecount + 1;
    push( @{ $hash{$line} }, $linecount );
}

   push @{ $hash{$line} }, $.;

push @{ $hash{$_} }, $. while <IN>;

close IN;