#!/usr/bin/perl
@essen=("Außen-Döner", "Real Döner", "Real mitnehmen", "Kotlettbude", "Pizza La Strada");
$zufall=int(rand($#essen));
print "Geh heute zu ".$essen[$zufall]."!\n\n";