my @paths = ("asdf", "qwert");
my $pwd = "xpto";
for(my $idx = 0; $idx <= $#paths; ++$idx){
    $paths[$idx] = $pwd . "/" . $paths[$idx];
}