sub decpart { $_[0] - int $_[0]; }
my $part = decpart ( $foo->{bar}->baz( $bat, $ban, 5 * $bag) );