$n=sprintf("%2.4f",$n);
$n =~ s/\.\d*?0+$//;