# List processing with foreach/push  
foreach ( @input ) {
  push @out, lc($_);
}
print @out;

# Equivalent "rolled-up" map expression:
print map { lc($_) } @input;