package mypackage;
my $sqrt_2 = undef; # not visible outside of mypackage

sub get_sqrt_2 {
   unless (defined $sqrt_2) {
      # do a bunch of work to set $sqrt_2
   }
   return $sprt_2;
}