#!/usr/bin/env perl          
use strict;                  
use warnings;                
use YAML::XS ();
use YAML::Syck ();

my $data = do { local $/; <DATA> };

print "With YAML::XS...\n";
my $xs = YAML::XS::Load($data);
for my $person (@$xs) {
	print "$person->{name} is happy\n" if $person->{happy};
}

print "With YAML::Syck...\n";
my $syck = YAML::Syck::Load($data);
for my $person (@$syck) {
	print "$person->{name} is happy\n" if $person->{happy};
}

__DATA__
-
  name: Bob Johnson
  active: true
  happy: false
-
  name: Bill Johnson
  active: true
  happy: true
-
  name: Frank Johnson
  active: false
  happy: false
-
  name: George Johnson
  active: false
  happy: true

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;

use Data::Alias;
use Data::Dumper;

my $false = !! 0;
my $true  = !! 1;

my (@foo, @bar);
alias $foo[0] = $false;
alias $bar[0] = $false;
alias $foo[1] = $true;
alias $bar[1] = $true;

print Dumper \@foo, \@bar;