Select Code to Download

$id[0] =  @{$dbh->selectall_arrayref($sql,undef,'no')};

@id =  @{$dbh->selectall_arrayref($sql,undef,'no')};