Select Code to Download

# let's use an intermediate variable.
# it's a good idea when dealing with complex data structures
...
    my @sorted = sort { $a->{inv} <=> $b->{inv} } @$pick_aref;
    print Dumper($_) for @sorted;
}