You might be able to get some results constructing a regex of look ahead assertions:

my $test = construct_regex (@searcharray);

my @results = grep { /$test/ } @longarray;

sub construct_regex {
    my $regex = "^";
    foreach my $subregex (@_){
        $regex .= "(?=.*" . $subregex . ")";
    }
    qr/$regex/;
}
[download]

-nuffin
zz zZ Z Z #!perl