my @array;
my ($i,$j);

for ($i=0; $i<4; $i++) {
    $array[$i]= 1000;
}
for ($j=4; $j<10; $j++) {
    $array[$j]= 50;
}