sub go_cmds { my $r_cmds = shift; my @names = $r_cmds->names; ## do more stuff }