my $val = 0.001 ;

$val = $val * 100 ;

$val = $val / 100 ;

print "$val ";