#!/usr/bin/perl -w
use strict;
my @array;
map {$_+1}@array[10000..90000];
map {$_+1}@array[91000..92000];