my $recordSet = 11;

open (FILE, $file) or die $!;
my @list = <FILE>;
close (FILE);

my @datasets = ();
while (my @subList = splice( @list, 0, $recordSet) ){
  push (@datasets, join("\n", @subList);
}
undef @list;