Select Code to Download

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

print Dumper \%hash;
print join (" ",keys %hash);

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