There is an easier (more reliable) way :)
my @cols = ();
for (keys %db_def) { push @cols, $_; }
return @cols;
}
@cols = get_cols();
Code:
sub get_cols { my @cols = ();
for (keys %db_def) { push @cols, $_; }
return @cols;
}
@cols = get_cols();