Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

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