@d = map { rand > .9 ? "kick" : rand > .8 ? "jump" : "punch" } 0 .. 1000; for ( "leap through burning hoop", "lie on bed of spikes", "smash block over head" ) { @a = split / /; splice( @d, rand($#d), 1 + $#a, @a ); } open(FH, ">kung_fu_review.html"); print FH "@d"; close(FH);