# das da einbauen vor dem Aufruf
bless $in_out{foot},'main';
sub AUTOLOAD{
    my $self = shift;
    # parse den Namen der Funktion
    my $name = do{
        our $AUTOLOAD =~ /::(\w+)/;
        $1;
    };
    my $code = $self->{$name};
    return $code->(@_);
}
sub DESTROY{};
# hack end
#
# Dein Funktionsaufruf
$test2{insub}->(\%in_out);