Select Code to Download

#!/usr/bin/perl
use strict;
...
            'CAR3' => '3b'
          }
        ];

my $refAoH = \@AoH;

print Dumper $refAoH;