simple in-editor substitution

s{\Qsubmit_thingamabob($handle,$not_today,}{[ }g;
s{\Q);}{ ],}g;
[download]

a prefix and perltidy and I get

my @repeaters = ( $handle, $not_today, $thingie );
submit_thingamabob( @repeaters, @$_ )
  for
  [ "Foo!",  234 ],
  [ "Frob!", 23 ],
  [ "Forb!", 54 ],
  [ "ooF!",  11 ],
  [ "broF!", fakenum ],
  [ "Frap!", 458 ],
  ;;;;;
[download]

Is it more complexity?

I'm not sure, but I do know I iterate before I curry

my $curry = sub {
  submit_thingamabob($handle, $not_today, $thingie, @_ );
};

    $curry->( "Foo!",  234 );
    $curry->( "Frob!", 23 );
    $curry->( "Forb!", 54 );
    $curry->( "ooF!",  11 );
    $curry->( "broF!", fakenum );
    $curry->( "Frap!", 458 );
[download]