my @array;
open(IFILE, "item.txt");
while(<IFILE>){
  chomp;
  if(/ITEM NO\:/ && defined @array){  
    MySub(@array);
    undef @array;
  }
  push @array, $_;
}