my %cmds = (valid stuff) 
go_cmds(\%cmds);  

sub go_cmds 
{ 
   my $r_cmds = shift; 
   # Grab anon array (valid array) 
1)   my $r_names   = $r_cmds->{"names"}; 
2)   my @names     = @$r_names; 
3)   my $names_qty = $#colnames + 1;