draegtun

  # first Ruby example in article
  users.select { |u| u.admin? }.map(&:email)

  # using Perl's block list
  map {$_->email} grep {$_->is_admin} @users;

    $hash1->{key1}{key2}

    $hash1{key1}{key2}

    keys %{$hash1{key1}}

    hash1["hash_name"]["array_name"][3]

    $hash1{hash_name}{array_name}[3]

  # perl
  my $x = do {
     …
     5
  };

  ;; Rebol/Red
  x: do [
     …
     5
  ]

  : unless ( ? quot -- res ) swap [ drop ] [ call ] if ; inline

  unless: func [expr block] [either expr [] block]

  user: [name: "John Doe" birth-date: 1970-01-01 account-balance: $1000.01]

  loop 10 [
      print "hello"   ;; prints "hello" 10 times
  ]

  repeat n 10 [
      print n         ;; prints 1 to 10
  ]

  forever [
     print "hello"    ;; print "hello" forever!
  ]