my @sorted_names= @names[
    my @idx= sort {$ages[$a]<=>$ages[$b]} 0..$#ages ];
my @sorted_ages= @ages[@idx];