my @aligned = map { sprintf "%9.2f",$_ } qw(1 1.5 2.4578  373.237);
print join("\n",@aligned);