Select Code to Download

open ORGIDATA, ">orig" || die "Couldn't open! $!";
       for (my $k = 0; $k < @classid; $k++) {
...
           }
       }
       close ORGIDATA;

        print ORGIDATA $classid[$k], " ", @{$class[$k]}, " ", $locatio
+n