Select Code to Download

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

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

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