for (@ARGV){ if(*{$_}{CODE}){ &{*{$_}}; } else { print STDERR "Dont know about $_\n"; } }