# 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
        ];


##</code><code>##

# perl -e '

my @array1 = qw(one two three); 
my @array2 = qw(four seven nine); 

my $prefix = "C:/Temp/somedir";   

my @fulllist = map { "$prefix/$_" } @array1; 

push @fulllist, map { "$prefix/$_" } @array2; 

use Data::Dumper; 
print Dumper(\@fulllist); 
' 
$VAR1 = [
          'C:/Temp/somedir/one',
          'C:/Temp/somedir/two',
          'C:/Temp/somedir/three',
          'C:/Temp/somedir/four',
          'C:/Temp/somedir/seven',
          'C:/Temp/somedir/nine'
        ];