use Data::Types qw/:all/;

my @numbers = (0, 3.14, 5);

for my $num (@numbers) {
    if (is_int($num)) {
        print "$num is an int.\n";
    } elsif (is_float($num)) {
        print "$num is a float.\n";
    } else {
        print "$num is something else.\n";
    }
}