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