$ perl -wle 'map { print } qw(d c a b)'