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