my @a = 'a' .. 'c';
my @b = 'a' .. 'f';

my $compare = do {
    my $temp = join '.*?', @a;
    qr/$temp/;
};

sub compare {
    my @b = @_;

    my $temp = join '', @b;
    return $temp =~ $compare;
}