Select Code to Download

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...

print Dumper(\%hash);
__END__

$VAR1 = {
          'blue' => {
                      'yellow' => 1
...
                     'white' => 1
                   }
        };