http://www.perlmonks.org?node_id=423932

@newrome{'caesar', 'has', 'arrived', 'in', 'the', 'Capitol'}; @newrome{'caesar'} = "EVIL"; while(@newrome{'caesar'}){ @ll{'mankind', 'will', 'suffer', 'the', 'fools', 'arrogance'}; if (@ll<-$soldiers){ die "It shall not be in vain"; } $dc or $bust; &getarope; @newrome{'caesar'} = undef; } sub getarope{ unless(@ll<-$soldiers && return $HOME){ print "\nStand united against the Republicrat greed, "; &politico; } } sub politico{ print "propaganda and deceit! \n"; } #Alea iacta est