$ perl -le'print sprintf q(%*s%*1$s%*1$s%*1$s%*1$s), 10, qw(one two three four five)'
       one       two     three      four      five