#!/usr/bin/perl
use strict;
use warnings;

my @array = ( 1..10  );
print "@array\n";

my @mult = map { $_ * 2 } @array;
print "@mult\n";