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

##</code><code>##

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