Help for this page

Select Code to Download


  1. or download this
    my @y = do {my $z = 0; grep {$z ||= $_ == 3} @x};