if ( $arrayref && @$arrayref ) {
      # set the flag
   }
   ...
   foreach my $element (@$arrayref) {
     # do stuff
   }