#! c:/perl/bin/perl.exe
#
#
use strict;

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

use Data::Dumper qw/Dumper/;

use vars qw/$Storage/;
my $data;

$Win32::OLE::Warn =2;           
my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application');

my $xls_path = "c:\\test.xlsx";
my $xls = $excel->Workbooks->Open("$xls_path"); 	

foreach my $sheet ( in $xls->Worksheets ) 
{
	$Storage ={};
	$Storage->{SAN} = $sheet->Name, $/;	
	print $Storage->{SAN}."\n";
	
	my $San_data = $xls->Worksheets("$Storage->{SAN}");
	my @Colum_A = $San_data->UsedRange->{'Value'};
	
	foreach my $array (@Colum_A)
	{
		foreach my $element (@$array)
		{
			foreach my $info (@$element)
			{
				if ($info !~ /:/)
				{
					next if not defined $info;
					push (@{$Storage->{LUNs}}, "$info");
				}
				if ($info =~ /:/)
				{
					push (@{$Storage->{LUNs}}->{WWN}}, "$info");
					
				}
			}
		}
		print "\n_______________\n";
	}
	print Dumper $Storage;
}