if ($n =~ /^[2357]$/) {
    $prime += $n;
}
elsif ($n !~ /^[01]$/) {
    $comp += $n;
}