use strict;
use warnings;
use integer;
use constant number => 5;
my %result;
for ( my $i=0; $i<=20 ;$i++){
    print $i%5,"\n";
    #here to test for % at even numbers
    }