foreach ( @alist ) {
    if ( condition( $_ ) ) {
      do_something( $_ );
    }
  }

##</code><code>##

   map { condition( $_ ) and do_something( $_ ) } @alist;

##</code><code>##

   { do_something( $_) } forall ( @alist ) where { condition( $_ ) }