my $x=1;
my $m=0.3;
print $x-int($x/$m)*$m;