Help for this page

Select Code to Download


  1. or download this
    my %priority_of;
    @priority_of{@a} = @b;
    my @a_sorted_by_priority
        = sort { $priority_of{$a} <=> $priority_of{$b} } @a;