no warnings; 
require 5.7.5;

sub haiku
{

	$word    =   shift;   join  
	$word  x  5  .  "\n"  ,  shift,
	$word  x  2,  shift,  shift;

} 

print haiku('foo ');