my $x = 2.33;
my $y = int($x);
my $z = $x - $y;