use Modern::Perl;

say +(split ':')[0] while (<DATA>);

##</code><code>##

say FILEHANDLE LIST
print FILEHANDLE LIST

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my @x = (1,2,3); say (@x)[1]'
say (...) interpreted as function at -e line 1.
syntax error at -e line 1, near ")["
Execution of -e aborted due to compilation errors.

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my @x = (1,2,3); say STDOUT (@x)[1]'
2

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my @x = (1,2,3); say +(@x)[1]'
2