@auszug = grep { $_->[1] == 20} @zeilen;
@verkuerzt = grep { $_->[1] !=  20} @zeilen;