use List::MoreUtils qw<first>;
first { not print } @array;