$ perl -E '@x = (@_ = qw( a b )) x= 2'