Just now I needed a +=3 list loop, and I made a hash of anonymous arrays:

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]);
}
[download]

The big plus for me in this format was that it makes the step 3 iteration of the data painfully obvious. Hopefully, the code isn't too painful, tho.