Can you suggest me some suitable code

open FILE, '<', 'san.txt' or die "Cannot open 'san.txt' $!";

my $incr = -1;
my @array;
while ( <FILE> ) {
    chomp;
    next if /^\s*(?:#|$)/;
    $incr++ if /^ITEM NO:/;
    push @{ $array[ $incr ] }, $_;
    }

test2::REQUEST( @array );
[download]