#!/usr/bin/perl

use strict;
use warnings;

my @array;

for(333...444){
    push @array,$_;
}

print "@array";