$ perl -Mstrict -Mwarnings -E '
    my $match = "AZ";
    my @lines = qw{AZ SX AZ DC};
    my @keepers = grep { $match } @lines;
    say "@keepers";
'
AZ SX AZ DC