sub quotient_remainder {
    use integer;
    my( $dividend, $divisor ) = @_;
    my $quotient = $dividend / $divisor;
    my $remainder = $dividend % $divisor;
    return ( $quotient, $remainder );
}

say quotient_remainder( 3, 2 );