# -- file b.pm

my ($var1, $var2, $var3);

sub initialize_variables {
  $var1 = shift;
  $var2 = shift;
  ...
}

sub routine {
  # use $var1, $var2, etc.
}
1;
[download]

use vars would do the trick. I'd probably use our.

sub p1 {
    our $persistant;  $persistant = "init" unless defined $persistant;
   
    $persistant .= ".";

    return $persistant.
}
[download]

Of course, that's going to be global to the package namespace, so if you need more than one type of p1(), maybe bless can help too.

package niffty;

sub new { bless { persistant => "init" } }
sub p1 { my $this = shift; $this->{persistant} .= "."; 
    return $this->[persistant}; }
[download]