Select Code to Download

use Storable qw(freeze thaw);
use DBI;
...
my $result = $sth->fetchrow_arrayref();
my $data = thaw($result->[0]);
print Dumper($data);

$VAR1 = {
          'e' => [
...
                   'd' => 3
                 }
        };