my ( $int, $float ) = split /\./, $num;