my @array1 = qw(1 2 4 7 2 4 1);
my @array2 = qw(...);
# ... weitere arrays ...

my @index = sort{ $array1[$a] cmp $array2[$b] }@array1;

@array1 = @array1[@index];
@array2 = @array2[@index];
# ... weitere arrays ...