# perl -e 'use Data::Dumper; my @a = qw(1 2 3); push @a, map { $_ * 2 } qw(4 5 6); print Dumper(\@a); ' 
$VAR1 = [
          '1',
          '2',
          '3',
          8,
          10,
          12
        ];