Wo solls denn hin zurückgegeben werden?

$campus_but enthält bei dir ein TK::Button Objekt, nämlich das Objekt das den Button darstellt.

Du kannst statddessen Tk::Dialog oder sowas verwenden. Oder das Ergebnis in eine Variable schreiben, die ausserhalb der FUnktion auch sichtbar ist.