c:\repos\berrybrew>perl -le "@_ = qw( a b c ); print( ( shift @_ )[ 0, 0 ] );"
aa

c:\repos\berrybrew>perl -le "@_ = qw( a b c ); @A = ( shift @_ )[ 0, 0 ]; print @A"
aa

c:\repos\berrybrew>perl -v

This is perl 5, version 28, subversion 1 (v5.28.1) built for MSWin32-x64-multi-thread