Select Code to Download

sub mysub($$;$) {
   my ( $a, $b, $c ) = @_;
   $c ||= 3;   #c is 3 if not already defined
}

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