sub abfrage(\@)
{
   my($arrayref) = @_;
   my @liste = @$arrayref;
   # ...