SCRIPT:
for $script (sort keys %scripts) {

    next SCRIPT if ! defined $scripts{$script} {execute} ;

       $step = $scripts{$script} {step} ;
       $sub  = $scripts{$script} {sub} ;

       if ($script == '020') {

          print "\n\tRunning Step :: $step Sub :: $sub\n" ;

          $result = system(&$sub($file, $step)) ;

          if ($result) {
             print "\n\tFailed!\n" ;
          }
          else
          {
             print "\n\tSucceeded!\n" ;
          }
       }
}