Select Code to Download

my $struct = {
    hashRef => { fruit => 'apple', veggie => 'corn' },
    arrayRef => [ qw(1 2 3 4 5) ],
};

#!/usr/bin/env perl5
use strict;
...
# And for the coup de grace, we'll deref $struct via ${} instead of ->
# too.
print ${${$struct}{hashRef}}{fruit}, "\n";

% ./tst.pl 
apple
apple
apple
apple