my %file = map { $_ => /^([^=-]*)$/ ) } @ARGV;
    my %switch = map { $_ => /^--([^=]*)$/ } @ARGV;