my %scripts = (
  "010" =>  {
              sub  => "ACC_GET_STEP",
              step => '010',
            },
  "020" =>  {
              sub  => "ACC_PUT_STEP",
              step => '020',
            },
  "030" =>  {
              sub  => "ACC_GET_STEP",
              step => '030',
            },
);

##</code><code>##

Can't use string ("ACC_PUT_STEP") as a subroutine ref while "strict refs" in use
 at xxrc_test_putstep.pl line 211.

##</code><code>##

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" ;
          }
       }
}