One possibility:

use File::Copy;

open FH, "> xyz" or die "Write xyz - $!";
copy( $_, \*FH ) for qw( xy z );
close FH;
[download]

Originally posted as a Categorized Answer.