Anonymous data structures
my $ra = [ qw(red green blue) ];
my $rh = { I => 1, II => 2, III => 3, IV => 4 };
print $ra->[1], "\n";
print $rh->{IV}, "\n";
green
4