Select Code to Download

my $entry = shift(@{@datastructure{'foo'}});   # it's an anrray ref
print $_ for @$entry;    # dereference it to get the array

Dumper(\@entry);
$VAR1 = [
...
            'foo02'
          ]
        ];