sub build_one {
   my($foo, $bar, $baz) = @_;
   return sub {
    my $quux = shift;
       do_something($foo, $bar, $baz, $quux);
   }
}

# Figure out first three args...
push @queue, build_one($alpha, $beta, $gamma);

# repeat as necessary.