my @result;
my @array = qw(The problem with computers is they only do what you tell them);

print join(" ", @array), "\n";

# Syntax: map EXPR, LIST
print "\nNur Grossbuchstaben:\n";
@result = map (uc, @array);
print join(" ", @result), "\n";

# Syntax: map BLOCK LIST
print "\nJedes Wort gross und umgedreht:\n";
@result = map { scalar reverse uc $_ } @array;
print join(" ", @result), "\n";