% or modulus division is very simple.
my $col = $calnum % 3;
Divide $calnum by 3 and store the remainder in $col.

1 % 3 = 1
2 % 3 = 2
3 % 3 = 0
4 % 3 = 1
...