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
[download]