my $flag = 1; foreach (@item) { $flag &&= usable( $_ ); } print $flag ? "All usable" : "not all usable";