Select Code to Download

    ...
    return wantarray ? @a : $a[0];
}

sub each {
    ...
    my @a = getKeyAndValue();
    return wantarray ? @a : $a[0];
}