use strict;
use warnings;
use Spreadsheet::ExcelHashTable;

my $file ='D:\\Scripts\\DeviceID_TableAssociation.xlsx';
print $file;


my $excel_table  = Spreadsheet::ExcelHashTable->new($file);
        $excel_table->parse_table("Sheet1", "ID") ;
        my $excel_hash = $excel_table->get_table("ID");

##</code><code>##

 -----------------------
 | ID | Name       |
 -----------------------
 |  001    |  AAA    |
 -----------------------
 |  002  |  BBB    |
 -----------------------