#!/usr/local/bin/perl
use strict;

my $dave = subref("dave", "oranges", "grapefruit");
$dave->("debug message");

sub subref {
        my (@stuff) = @_;
        return sub { doit(@stuff, @_) }; # <-- closure here?
}

sub doit {
        print shift, ": ", join(",", @_), "\n";
}