for(my \$x=0;\$x<25;\$x++){
  return "Statement aborted" if $stop_requested;
  ...
}