[~]$ perlbrew exec perl -le '@_ = qw( a b c ); @A = ( shift @_ )[ 0, 0 ]; print @A'
[...]
perl-5.22.2
==========
aa


perl-5.20.3
==========
aa


perl-5.18.4
==========
a


perl-5.16.3
==========
a


perl-5.14.4
==========
a