sub covariance {
    my ($arraylref, $array2ref) = @_;
    if ( ref($arraylref) ne 'ARRAY' or ref($array2ref) ne 'ARRAY') {
     return "expecting array reference to be passed";
   }
}