my $name = 'Jean ValJean'; my $number = 24601; steal_candlesticks(); become_mayor(); print "Who am I? $name, $number!\n"; sub become_mayor { if ($number == 1138) { do_thx(); } if ($number == 6) { do_prisoner(); } print "I am the mayor of this town\n"; } sub steal_candlesticks { if ($number = 1138) { do_thx(); } print "Took the candles, took my flight\n"; } sub do_thx { $name = 'THX'; } sub do_prisoner { undef $name; }