foreach is a statement, not an expression. It cannot be used as an operand of && or any other operator. Try this instead:

if (defined $debug) {
  foreach my $key (sort keys %option) {
    print __LINE__ . ": $key = $option{$key}\n"
      if defined($option{$key});
  }
}
[download]