|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
my @sorted = qw(Name Vorname, Adresse PLZ Ort Telefon Geburtsdatum Eintritt);
my @ausgabe;
for my $part(@sorted){
push(@ausgabe,$part) if(grep{$_ eq $part}@checkedFields);
}
|< 1 2 >| | 11 Einträge, 2 Seiten |