#!/usr/bin/perl

use strict;

my @ranges = (2..5,10..15);
my $range = "2..5,10..15";

my $schoolID = "234";
my $teacherID = "1001";

my $fields = "StID,SchooldID,TeacherID,KnowPre,KnowPost,Prefact";

# start sheet creation
print "$fields\n";
foreach my $stID (@ranges) {

        print "$stID,$schoolID,$teacherID,,,\n";
}

foreach my $stID (@{[$range]}) {

        print "$stID,$schoolID,$teacherID,,,\n";
}