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