...
  my @rules = keys %$rul;

  for my $k (@rules) {
    my @out = @{&proccode($str,$$rul{$k})};
...