sub divides { 
    0 == $_[0] ? 0 == $_[1] : 0 == $_[1] % $_[0] 
}