From an earlier post: Thanks to Autobox you can do

use autobox::universal qw(type);

say type("42");  # STRING
say type(42);    # INTEGER
say type(42.0);  # FLOAT 
say type(undef); # UNDEF
[download]

See chocolateboy's response in "How to tell apart numeric scalars and string scalars in Perl?"