Select Code to Download

use warnings;
use strict;
...
    push @array_of_hash, \%hash;
}
use Data::Dumper; $Data::Dumper::Sortkeys=1; print Dumper(\@array_of_h
+ash);

$VAR1 = [
          {
...
            'payment' => 3
          }
        ];