kristian@tux:~> perl -wle ' print join("\n",sort(qw(Zebra Affe Loewe Baer Pinguin))); '
Affe
Baer
Loewe
Pinguin
Zebra