Select Code to Download

use warnings;
use strict;
...
foreach (@$ar) { warn Dumper $_ }

foreach (@{ ref $hr eq q/HASH/ ? [ $hr ] : $hr }) { warn Dumper $_ }

$ perl tst.pl
$VAR1 = {
...
          'hk2' => 'hv2',
          'hk1' => 'hv1'
        };