open(LIEDER,'lieder.txt');

%liste;

foreach (<LIEDER>) {
        chomp $_;
        ($künstler, $titel) = split /\: /,$_;
        $liste{$künstler} = $titel;
}

$nr = 0;

foreach (keys %liste) {
        $nr = $nr + 1;
        print "$nr) $_\n\t\ $liste{$_}\n";
}

close (LIEDER);