Any way of returning the actual individual control name

[James McDonald]

$self->{button_1} = Wx::Button->new($self, $KEY1, "1");

OK I have figured out how to:
        get hold of the button object using $event->GetEventObject()
        define a constant  and return it using $event->GetEventObject()->GetId

Is there any way of returning the "button_1" name programatically?