sub abfrage{
   my ($arref) = @_;
   for my $element(@$arref){
       print $element;
   }
}