$batman=~s/\&//g; print "Fly"; print ""; sub marine{$paint="ffff00"} while($u){sleep} sub seattle{while(1==2){sleep}} $i="ffd700"; sub mummy{return} $shark{$colour}="0000ff"; my $love;undef $love; splice(my @best,$friend); $man[2]; @man=qw(grumpy sore indignant huffish bitter aggravated wrathful vexed ireful enraged furious cross);