sub Entry(@)
{ 
my @data= @_;
$slno=$ddd[0];
$testid=$ddd[1];
$status=$ddd[2];
my @array= ($slno, $testid, $status);
$array_ref  = \@array;
$worksheet->write_row($row, $col, $array_ref);
}