>perl -wMstrict -le
"sub sample { return [1, 2, 3, 4]; }
 my $c = sample()->[2];
 print $c;
"
3