A Simple Subroutine

$count = 5;

sub explode {
  $count--;
  print "KABOOM! You have $count bombs left\n";
}