my $first = ( f() )[0]; my ($first, $third) = ( f() )[1,3]; my $second = ( f() )[2];