>perl -wMstrict -le
"my @output = ();
 ;;
 if (@output) {
   print qq{true clause: array not empty};
   }
 else {
   print qq{false clause: array empty};
   }
"
false clause: array empty