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";