my %hash = (
    'one'   => [ '1', 'first' ],
    'beta'  => [ '2', 'second' ],
    'zeta'  => [ '-1', 'last' ],
);

while ((my ($key, $value)) = each %hash) {
    a_func_w_3_args($key, $value->[0], $value->[1]);
}