Select Code to Download

$VAR1 = {
          '1' => {
...
                   'account' => 'ar182364'
                 }
        };

$VAR1 = {
          '21' => {
...
                    'odue' => '1'
                  }
        };

#!/usr/bin/perl 
use strict;
...
print Dumper \%account;
    }