#!/usr/bin/perl 

my (@array,$r);

for(1..5000000) { 
 $r=($_ * 100  + 300 + 200);
push @array, $_;
}

return \@array;