for my $outer ( qr/hi/, qr/bye/ ) {
    print grep { /$outer/ } qw/ bike hello hi /
}