Select Code to Download

#Consider the output of the following
my %family_name = (
...
print "@keys\n";
my @values = values %family_name;
print "@values\n";

use strict;
use warnings;
...
        my ($n,$i) = @_;
        print "$n is already there and her family name is $values[$i]\
+n";
        }