[Perl] Randomizing An Array

Descrizione
Randomizza un dato array.

Codice
my @arr = ("Napoli", "Milano", "Londra", "New York");
my $deck = \@arr;
my $i = @$deck;
while ($i--) {
my $j = int rand (4);
@$deck[$i,$j] = @$deck[$j,$i];
}
print "@arr\n";
system("pause");