Select Code to Download

 for $i ( 1 .. 1000) {
     $AoA[$i] = [ somefunc($i) ];
 }

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

if( $result = 6/(3.1415926 * 3.141596) ) {
      do whatever you need to do to meet assignment requirements
}