$ ./nice_num.pl
1234.123 = 1234 0.123000000000047
1000 = 1000 0
0.234 = 0 0.234
4.222 = 4 0.222
130.000 = 130 0
500 = 500 0
345678.345 = 345678 0.34499999997206

##</code><code>##

#!/usr/bin/perl -w

##################################
# split number in int and fraction
my $split_number = sub {
	my $num = shift;
	my $int = int($num);
	my $frac = $num - $int;
	return [$int,$frac];	
};

# main
my @testnums = qw(1234.123 1000 0.234 4.222 130.000 500 345678.345);
for $n (@testnums) {
	print "$n = ";
	for $z (@{&$split_number($n)}) {
		print "$z ";
	}
	print "\n";
}