Select Code to Download

my $name = 'Jean ValJean';
my $number = 24601;
...
  undef $name;
}

sub who_am_i {
  my $name = 'Jean ValJean';
...
# these are different variables, but could
# have chosen $name and $number again
my ($prisoner_name, $prisoner_number) = who_am_i();