foreach my $index (@sort_keys_satzliste)
{
    my @pro = <irgendwelchedaten>;
    $liste{$index} = \@pro;
}