$foo = 0; # Declaring as a number
if ($foo eq '0') {
    print "Oops, it's a string!\n";
}

$foo = "0"; # Declaring as a string
if ($foo == 0) {
    print "Oops, now it's a number!\n";
}