my $Sheet = $Excel->{ActiveSheet};

##</code><code>##

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);

$Win32::OLE::Warn = 3; 

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
	    or die "Ain't gonna work without an open worksheet\n";
      
   my $Sheet = $Excel->{ActiveSheet};
   my $array  = $Excel->Selection->{Value};
   foreach my $cell(@{$array}){
       print $cell->[0]."\n";
   }