use Path::Class;
my @paths = map { file('xpto', $_) } qw/asdf qwert/;