##
# Copies to a second array while formatting.
my @formatted = map { sprintf($format, $_) } @array;
####
# Same as last, but without using "map".
my @formatted;
for (0..$#array) {
$formatted[$_] = sprintf($format, $array[$_]);
}
####
foreach (@formatted) {
print($_, "\n");
}