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

my $result = [ { b => 'small erection' } ];
print $result->[0]->{'b'}."\n";
print $result->[0]{b}."\n";
print "$$result[0]{b}\n";
print "$result->[0]{b}\n";
__END__
small erection
small erection
small erection
small erection