for my $i (1..6) {
    print "$i\n";
}

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

for my $id (1 .. 30) {
    my $grp = $id % 5;
    $grp = 5 if $grp == 0;
    printf ("ID: %03d\t GRP: %d \n", $id, $grp);
}