open (OUT, ">gout");

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

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

while (<IN>){

next unless $. == $array[$i++];
print OUT $_;
#if ($. == @array) {print OUT $_}
}