$variable[$r] = $Sheet->Cells($r,1)->{'Value'};
$vardescription[$r]=$Sheet->Cells($r,2)->{'Value'};