perl -le '@_ = qw( a b c ); print( ( shift @_ )[ 0, 0 ] );'

##</code><code>##

perl -le '@_ = qw( a b c ); @A = ( shift @_ )[ 0, 0 ]; print @A'

##</code><code>##

perl -le '@_ = qw( a b c ); @A = ( shift @_ ) x 2; print @A'