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