foreach my $buchstabe (a..z) {
    foreach my $zahlen (1..10) {
        push (@$buchstabe, $zahlen);
    }
}
print "$_) ", @$_, "\n" foreach (a..z);

my $ende = <STDIN>;