my %lookup = map { $_ => 1 } @arraytocompare;

foreach my $strfile (@tempfiles) {
    if( $lookup{ $strfile } ) {
        push (@newarray, $strfile); 
    };
};