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

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

##</code><code>##

for my $element (@primes) {
    if ($element <= $n) {
        $answer .= " $element";
        }
    else {
        last;
        }
    }

##</code><code>##

for my $element (@primes) {
    last if $element > $n;
    $answer .= " $element";
    }

##</code><code>##

my @in_range;

for my $element (@primes) {
    last if $element > $n;
    push @in_range, $element;
    }

return " @in_range";