#!/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";
}