This seems to work. The localised copy is shared into the compartments namespace.

#!/usr/bin/perl

use Safe;
use IO::File;

my $compartment = Safe->new;

my $safe = sub {
             local  @SHAREDARGS = @_;
             $compartment->share('@SHAREDARGS');
             my $code = 'print "Got: ", join (", ", @SHAREDARGS),"\n" 
+';
             $compartment->reval($code) || die "die $@"
           };

print $safe->(42, 47, 11 , "xyz");
__END__
Got: 42, 47, 11, xyz
[download]