sub listprimes {
     my $n      = shift; 
     my $i      = 0;
     my $answer = "";

     while($primes[$i] <= $n) {
          $answer .= " $primes[$i]"; 
          $i++;
     } 
     
     return $answer;
 }