open (OUT, ">gout");

while (<>){
chomp;
$line = $_;
push @array, $line;
}

print @array;
open (IN, "<grep");

while (<IN>){

if ($. == ???) {print OUT $_}
}