# Same as last, but without using "map".
my @formatted;
for (0..$#array) {
   $formatted[$_] = sprintf($format, $array[$_]);
}