DB<6> $pwd="xxx" DB<8> @path=qw/a b c/ DB<9> map{ "$pwd/$_" }@path; DB<10> p "@path" a b c