18 - YAML

"YAML Ain't Markup Language"
use YAML qw(Dump);
$hash = {apple => 'good', banana => 'bad', cauliflower => 'ugly'};
print Dump $hash;
--- #YAML:1.0
apple: good
banana: bad
cauliflower: ugly

use YAML qw(Load);
my $hashref = Load(<<'...');
name: me 
age: old
favourite colors:
    - red
    - white
...
print "$hashref->{age} $hashref->{'favourite colors'}->[1]\n";