spek@scelia ~/scratch $ perlbrew exec perl -le '@_ = qw( a b c ); @A = ( shift @_ )[ 0, 0 ]; print @A'

perl-5.27.10
==========
aa


perl-5.26.1
==========
aa


perl-5.20.0
==========
aa


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


perl-5.10.1
==========
aa