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