I'm sorry, but the code you just posted could not have produced the output that you posted with it. The script has a syntax error on this line (inside the last "if" block, line 42 when I downloaded it):

                    push (@{$Storage->{LUNs}}->{WWN}}, "$info");
[download]

Note the extra close-curly-brace. I think if you change it to read as follows:

                    push (@{$$Storage{LUNs}{WWN}}, $info);
[download]

there won't be a syntax error, and it might behave better. Apart from that, there's a warning from this line:

    $Storage->{SAN} = $sheet->Name, $/;
[download]

The ", $/" part does no good at all -- the warning is "useless use of a variable in void context". Just remove those four characters.

There's nothing more I can say, because I don't use windows or Win32::OLE. To read from an Excel file, I use Spreadsheet::ParseExcel, which works fine.