open(INO,"old.txt");
my @ino = <INO>;
close(INO);
open(INN,"new.txt");
my @inn = <INN>;
close(INN);

my @out;
for (my $line=0; $line < @inn; $line++) {
    my $readline = $inn[$line];
    chomp ($readline);
    foreach $old(@ino){
        if($old =~ /$readline/){ push @out,$old; };
    }
}
open(OUT,">filterd.txt");
foreach $_(@out){print OUT "$_";};
close(OUT);