Select Code to Download

my %name = (1, "A", 2, "B", 3, "C", 4, "D");
my %parent = (1, 0, 2, 1, 3, 2, 4, 3);

sub get_parent_value {
    my $parent_key = $parent{$key};
    my $parent_value = $name{$parent_key};
    return $parent_value;
}