Help for this page
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' };