I think I'm not getting it well, is this what you want?
use List::Util 'shuffle'; my @a1 = qw/one two three four five/; my @a2 = qw/1 2 3 4 5/; my @sa1 = shuffle @a1; my @sa2 = shuffle @a2; my @rnd_str = map { "$sa1[$_]-$sa2[$_]" } 0 ..$#sa1; ## show result print "$_\n" for @rnd_str; __END__ three-3 four-1 five-5 one-2 two-4
--
David Serrano
In reply to Re: Filling hashes
by Hue-Bond
in thread Filling hashes
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |