for(@ARGV)
{
if/^-/ $mode=$_;
elsif($mode){$subTable{$mode}->($_);}
else{#error or default mode}
}