Select Code to Download

#!/usr/local/bin/perl -w
...
printf "THREE\n";
$ref->(\%c);

ONE
HASH(0x622430)
...
HASH(0x622430)
a
a

inter(%c)

inter(\%c)

Type of arg 1 to main::inter must be hash (not reference constructor) 
+at /home/smk/prog/pl/interesting.pl line 18, near "%c)"
Execution of /home/smk/prog/pl/interesting.pl aborted due to compilati
+on errors.