>perl -le"print sprintf '%2$s %1$s', qw( a b )"
b a