my %h;
@h{@array_b} = @array_a;
# Now you can sort however you want, and they're linked:
for (sort {$a <=> $b} keys %h) {
  print "$_: $h{$_}\n";
}