Select Code to Download

#!/usr/bin/perl

...
}

print Dumper($#$AoH_dup, $AoH_dup )."\n";

$VAR1 = 0; $VAR2 = [{'id' =>1, 'name' => 'Bill'}];

$VAR1 = 1; $VAR2 = [{'id' =>3, 'name' => 'Mike'}, {} ];

    delete $AoH_dup->[$j]{'name'};
    delete $AoH_dup->[$j]{'id'};
    delete $AoH_dup->[$j];

$VAR1 = 1; $VAR2 = [ undef,{'id' =>3, 'name' => 'Mike'} ];