print join(' :: ', sort { $a cmp $b } keys %liste1), "\n";