Select Code to Download

my %hash = ('perl' => 1 , 'C' => 0) ;

my $hash = {'perl' => 1 , 'C' => 0} ;
foreach my $key(sort keys %$hash)
...
     print "$key : $hash->{$key} \n" ;

        }