Select Code to Download

use Data::Dumper;
print Dumper($hashref);
...
# or even just

print 'success' if exists $hashref->{foo}{foo};