my @b = map {sprintf("%.2f",$_)} @a;

##</code><code>##

my @b = split' ',sprintf" %.2f"x@a,@a;

##</code><code>##

s;;sprintf" %.2f"x@a,@a;e;my@b=split;