unshift @ARGV, (sub{ my $fn = shift; open my $fh, '<', $fn or return(); grep !/^#/, map split(), grep !/^#/, <$fh>; })->($conf);