c:\@Work\Perl\monks>perl -wMstrict -le
"print 'perl version: ', $];
 ;;
 use Data::Dumper;
 ;;
 @_ = qw( a b c );
 print( ( shift @_ )[ 0, 0, 0 ] );
 ;;
 @_ = qw( a b c );
 my @A = ( shift @_ )[ 0, 0, 0 ];
 print Dumper \@A;
 ;;
 @A = ( 'x', 'y', 'z' )[ 0, 0, 0 ];
 print Dumper \@A;
"

perl version: 5.012003
aaa
$VAR1 = [
          'a',
          'a',
          'a'
        ];

$VAR1 = [
          'x',
          'x',
          'x'
        ];

perl version: 5.014004
aaa
$VAR1 = [
          'a',
          undef,
          undef
        ];

$VAR1 = [
          'x',
          'x',
          'x'
        ];