# in evaluate()
if (/^\s*sub\s+(\S+)/) {
  $WorkSpace::functions{$1} = $_;
}