elsif ($items::show) {
    my %daten = Vars();
    
    foreach my $key(sort keys (%daten)){
        print $key . " = " . $daten{$key} . "\n";
    }
}