Select Code to Download

my %priority_of;
@priority_of{@a} = @b;
my @a_sorted_by_priority
    = sort { $priority_of{$a} <=> $priority_of{$b} } @a;