Help for this page

Select Code to Download

Select or download this
```
for my $i (1..6) {
    print "$i\n";
}
```

Select or download this

#!/usr/bin/perl

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