perl -le '@_ = qw( a b c ); @A = ( shift @_ ) x 2; print @A'