Select Code to Download

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs( [ $storage ], [ qw{ storage } ] );

$storage = {
             'SAN_01' => {
...
                                        ]
                         }
           };