@numbers = ( 1 .. 10 );
print "\@numbers: @numbers\n\n";

# multiply every number by 2
foreach ( @numbers ) {
   push( @doubledNumbers, $_ * 2 );
}

print "Double each number:\n",
      "foreach: @doubledNumbers\n";

@doubledNumbers2 = map( $_ * 2, @numbers );
print "map:     @doubledNumbers2\n";