use strict;
use warnings;
use integer;
use constant number => 5;
my %result;
for ( my $i=0; $i<=20 ;$i++){
    #my ($quo, $rem)= ($i/5, $i%5); #need to understand modulo 
    #print "this is quotient",$quo,"when this is divident $i \n";
    #print "this is remainder",$rem,"\n";
     if ($i%5==0 && $i!=0){
         print "this is the quotient",$i/5,"\n";
         print "this is the divident",$i,"\n";
         }
    }