Select Code to Download

#!/usr/bin/perl -w
use strict;
...
eval '$hash{' . join('}{',@ary) . '}++;';

print Dumper(\%hash);

$VAR1 = {
          'red' => {
...
                                }
                   }
        };