Given that you're dealing with phases, presumably with period 1, if your calculation can produce negative numbers, then I would recommend:

$x - POSIX::floor( $x );
[download]

instead of

$x - int( $x );
[download]

or

( POSIX::modf( $x ) )[ 0 ];
[download]