use List::MoreUtils qw( apply );

my @orig    = qw( Just another Perl hacker );
my @grepped = grep  { /^[A-Z]/      } @orig;
my @mapped  = map   { uc            } @orig;
my @applied = apply { s/[aiueo]//ig } @orig;

print("@orig\n");     # Just another Perl hacker
print("@grepped\n");  # Just Perl
print("@mapped\n");   # JUST ANOTHER PERL HACKER
print("@applied\n");  # Jst nthr Prl hckr