Select Code to Download

use Spreadsheet::ParseExcel;
use Data::Dumper;
$filename="Book2.xls";
...

}
print Dumper %data;

Excel Format:

ID  Name  Degree  CLZ
...
$Var4=[
$var2->[0]
];