use File::Spec::Functions qw(catfile);

my $file = catfile(qw/ foo bar baz bax.txt /);