Select Code to Download

my @array= ($slno, $testid, $status);
$array_ref  = \@array;
$worksheet->write_row($row, $col, $array_ref);

sub Entry(@)
{ 
...
$array_ref  = \@array;
$worksheet->write_row($row, $col, $array_ref);
}