my @names = @{ $r_cmds->{"names"} };

##</code><code>##

sub names {

	my $obj = shift;
	my @names = @{ $obj->{'names'} };

	return @names;

}

##</code><code>##

sub go_cmds {
	my $r_cmds = shift;
	my @names = $r_cmds->names;

	## do more stuff

}