Select Code to Download

my( @array ) = qw/one two three four five/;
foreach my $number ( @array ) {
    next if $number eq 'three';
    print $number, "\n";
}

one
two
four
five