sub correlation
{
  my($self, @args) = @_;
  print "self is $self, there are @args args\n";
}

##</code><code>##

sub bar
{
  my $self = shift;
  $self->{funcs}{$self->{method}}();
}

##</code><code>##

my $x = new Foo;
$x->bar;