You mean something like this?

#!/usr/bin/perl

use strict;
use warnings;

my $anon = sub { return "foo " . "bar" };

my $retVal = &$anon;

print $retVal ;
[download]

update
Ah i did not understand the question that way. After rereading i even thought more like the following, where you can get the sub (a) since it's the key of a blessed hash, with the sub inside...
well, now i have to think about it...

#!/usr/bin/perl

use strict;
use warnings;

my $anon = bar->new;
my $retVal = &{$anon->{a}};

print $retVal ;

package bar;

sub new{
   my $self = bless{};
   $self->{a} = sub { return "bar"; } ;
   $self;
}
[download]