package SomeObject;

my $very_private = sub 
{  
      ...
}
# ------------------------------------------
# to call this method:
$self->$very_private();