$ perl -E 'say $x while $x = shift' aaa bbb ccc
aaa
bbb
ccc
$