Help for this page
my @b = map {sprintf("%.2f",$_)} @a;
my @b = split' ',sprintf" %.2f"x@a,@a;
s;;sprintf" %.2f"x@a,@a;e;my@b=split;