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