my @a;
$a[0] = 5;
$a[1] = 2;
for(my $n=0;$n < scalar(@a); $n++) {
    $b[$n] = sprintf("%.2f", $a[$n];
}
print "$b[0] : $b[1]\n";

##</code><code>##

my @a;
$a[0] = 5;
$a[1] = 2;
$b[0] = sprintf("%.2f", $a[0];
$b[1] = sprintf("%.2f", $a[1];

print "$b[0] : $b[1]\n";