Select Code to Download

  close(OUT);
  @List;
}

  close(OUT);
  return @List;
}

while (<IN>) {
  s/,//;
  @Fields = split ' ';
...
  push @List, "$Slot $Type $Lable";
}
# You also never write anything to OUT