my %scripts = ( "010" => { sub => \&ACC_GET_STEP, step => '010', }, "020" => { sub => \&ACC_PUT_STEP, step => '020', }, "030" => { sub => \&ACC_GET_STEP, step => '030', }, ); #### $sub = $scripts{$script}{sub} ; $sub->($file, $step); # Or &$sub($file, $step);