my @y = do {my $z = 0; grep {$z ||= $_ == 3} @x};