foreach my @pair (@lori) {
     if( my_gcd_func(@pair) = 2) {
           $result++;
     };
}