#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Spreadsheet::Read;
use Spreadsheet::XLSX;
use Text::Iconv;
my $converter = Text::Iconv -> new ("utf-8", "windows-1251");
my $excel = Spreadsheet::XLSX -> new ('C:/SLB/Dashboard/DCSS_Applications.xlsx', $converter);
my @DCSS_ss; 
foreach my $sheet (@{$excel -> {Worksheet}}) {

	printf("Sheet: %s\n", $sheet->{Name});

	$sheet -> {MaxRow} ||= $sheet -> {MinRow};

	foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {

	
	$sheet -> {MaxCol} ||= $sheet -> {MinCol};
	my $cell = $sheet -> {Cells} [$row] [2];
		s/^\s+|\s+$//g for $cell->{Val};
		
		if ($cell) {
		 push @DCSS_ss, {
			SSRID =>$cell -> {Val}
			};
		}
	}
}

print Dumper \@DCSS_ss;