my @files = io('.')->all_files;
$files[0] > io( "/tmp/$files[0]" );

##</code><code>##

my @files = io('.')->all_files;
io( "$files[0]" ) > io( "/tmp/$files[0]" );

##</code><code>##

my $file = io( '.' )->next;
$file > io( "/tmp/$file" );

##</code><code>##

my $tmp = io;
io( '.' )->next > $tmp;