Скриптик на перл?

Помогите плиз нужно написать под генератор номеров

Пример

Code:

[+79065679876];[+79065679877];[+79065679886];[+7906567989];

Что генерились по порядку в строку в таком формате.

 

PHP:

#!/usr/bin/perl

my $pref='+7906'; #код оператора
my $start=2749004; # номер с которого начинаем генерить
my $nums=1000; # сколько номеров генерить

open(F,"> nums.txt");

for($i=1;$i<$nums;$i++){
 my $num=$start+$i;    
 print (F "[".$pref.$num."];");
 
}


 

Code:

for($i=1;$i<$nums;$i++){

Хых =)) В перле есть такая фича как

Code:

for (1 .. $num - 1) {

 

ну я на перле не особо шуруплю )))

 

Примного блогодарен!!!!
То что надо)

 

Если несложно набросай свой вариант)