sub listprimes {
    my ($n) = @_;
    my @primes_leq_n;
  
    for my $p (@primes){ # for and foreach are synonymous
       last if $p > $n;
       push @primes_leq_n, $p;
    }
    return join " ", @primes_leq_n;
 }