>perl -E"@a=qw( a b c ); say( 0 or @a );"
abc