sub step_name1 { print "stuff\n"; }
sub step_name2 { print "more stuff\n";}
sub restartStep ($) {
   my $code = shift;
   # Optional: test for existance of Package::"$code" here
   &$code;
}

restartStep "step_name1";
restartStep "step_name2";