# Die Arrays
my @array1 = qw( 4 2 3 1);
my @array2 = qw( d b c a);

# Sortiere das Array Numerisch. Allerdiengs gib den Sortierten index zurück
my @indexes = sort { $array1[$a] <=> $array1[$b] } 0 .. $#array1;

# Mit den vorhandenen index die Arrays neu schreiben lassen
@array1 = @array1[ @indexes ];
@array2 = @array2[ @indexes ];

# Alles ausgeben
for ( 0 .. 3 ) {
    print "$array1[$_] => $array2[$_]\n";
}