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