my $year = (localtime((stat($file))[9]))[5] + 1900;

##</code><code>##

my $sixth = (foo(@args))[5];

##</code><code>##

my $sixth = [foo(@args)]->[5];

##</code><code>##

my $year = [localtime([stat($file)]->[9])]->[5] + 1900;