sub init{
    my $self = shift;
    tie my %ussd, 'Objects', 'ussd' or die $@;
    %{$self->{STASH}} = ( %{$self->{STASH}}, %ussd); # Werte ins HTML-Template
    $self->{USSD} = tied(%ussd);
}