$value=" 1 ";
@array=map {$_=$value} (1..100);
$i=0;
foreach (@array) {
print "$i $_\n";
$i++;
}