Random generator for the topics to re-study...

di-topics-random-generator.perl

#!/usr/bin/perl
use warnings;
use strict;

use constant NUM_PER_DAY  => 5;
use constant TOTAL_TOPICS => 24;

my @topics = (1..TOTAL_TOPICS);
my ($rand, $temp);

for (my $i = 0; $i < @topics; $i += 1) {
    $rand = int(rand($#topics) + 0.5);
    $temp = $topics[$rand];
    $topics[$rand] = $topics[$i];
    $topics[$i] = $temp;
}

$temp = 0;
for (@topics) {
    print "---\n" unless $temp % NUM_PER_DAY;
    print "$_\n";
    $temp++;
}