my $var = 23123412341234.01222222;

print "var=$var\n";
if(int($var) != $var){
	print "is a float\n";
}
else{
	print "not a float\n";
}