Data Type Perl

$y = 1.00001;
print int($y);