"This is easily corrected by changing line 6 to:

print "$hash->{A} $hash->{B} $hash->{C}\n"; "
[download]

I prefer:

print "$$hash{A} $$hash{B} $$hash{C}\n";
[download]