use strict;
use warnings;

sub modulo {
	 my $number = shift;
	 my $divisor = shift;
	 
	 my $remainder = $number % $divisor;
	 my $quotient = ($number - $remainder) / $divisor;
	 
	 return ($remainder, $quotient);
}