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