use Data::Dumper;

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