$liste{$index} = \@pro;
    
...

while ((my $index, my $satz) = each %liste) {
    print "$index $satz}}\n";
}