ECARGOCULT

Perl requires semicolons between (after) statements. In particular, since you haven't put a semicolon after the first line, use is thinking your hashref (HASH(0x97f5b20)) is one of its arguments (read `perldoc -f use`; it takes a LIST of arguments). You want to use that hashref as an argument to new.