craft the url via joins

script.pl

@@ -23,8 +23,12 @@ sub get_mersenne_results() {
 
     my $mech = WWW::Mechanize->new;
 
-    my $url =
-      'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000';
+    my $url = join '?', 'https://www.mersenne.org/results/',
+        join '&', 
+        pairmap { join '=', $a, $b } 
+        exp_lo => 2,
+        limit => 10_000,
+        map { $_ => 1 } qw/ extf exp1 execm excert /;
 
     $mech->get($url);