in reply to PipTime

 @mapz{@valz} = (0 .. $#valz);

[download]


p

In Section Cool Uses for Perl