Select Code to Download

$i=0;
$index=@netids;
...
    print "</pre>";
        $i++;    
}

print "PRINT_INFO ($id,$nums[$i],$sects[$i])";

PRINT_INFO (2515,0040,1)
PRINT_INFO (9479,0040,2)
...
PRINT_INFO (19343,0314,3)
PRINT_INFO (19332,5268,1)
PRINT_INFO (19333,5268,2)

my ($netid, $sitename, $sector) = @_;