map { sprintf "%d ： %s<br>", $i++, $_ } @array;
とか。