Select Code to Download

use Data::Dumper;

for ( sort { $a->{policy_number} cmp $b->{policy_number}} @{ $VAR1->{p
+olicies} }) {
    print Dumper $_;
}

$VAR1 = {
          'name' => 'ZAbc',
...
          'link_name' => '7080-E102 Pqrs.doc',
          'policy_number' => '7080-E102'
        };