grep an array from other array in perl

Instead of grepping each line, consider building a regex that contains the route names as alternations:

use strict;
use warnings;
use autodie;

open my $rnameFH, '<', 'routename.txt';
chomp( my @routename = <$rnameFH> );
close $rnameFH;

my $names = '(?:' . ( join '|', map { "\Q$_\E" } @routename ) . ')';
my $regex = qr /^$names/;

open my $idFH, '<', 'idstatus.txt';

while(<$idFH>){
    print if /$regex/;
}

close $idFH;

Output on your datasets:

strvtran online   
strvtran online  
strvtran online
globscr online 
globscr online
globscr online  
globscr online  
globscr online 
fake online  
fake online  
fake connecting

The script creates an OR-type regex, by joining the route names with "|" (print $names to see this). The map is there only to quote any meta-characters which may be in the names, e.g., .*^, etc., as these would impact the matching.

Hope this helps!