Undefined subroutine &main::SCALAR called at (eval 2) line 1.