Select Code to Download

use warnings;
use strict;
...
foreach ( sort keys %c ) {
    print "Key : $_ => $c{$_}\n";
}

$hash{key} = undef; #defined $hash{key} false, exists $hash{key} true

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'