sub who_am_i {
  my $name = 'Jean ValJean';
  my $number = 24601;

  return ($name, $number);
}

# Chose different names here to emphasize that
# these are different variables, but could
# have chosen $name and $number again
my ($prisoner_name, $prisoner_number) = who_am_i();