# @out = map { EXPRESSION } @in
my @out;
foreach $_ ( @in ) {
  push @out, EXPRESSION;
}

# @out = grep { CONDITION } @in
my @out;
foreach $_ ( @in ) {
  push @out, $_ if CONDITION;
}