@x=qw/world hello world!/;$,="\n";$i=2;push@x,$x[$i/3]." ".$x[$i%3]while(++$i<100);print@x