our $var = whatever;

##</code><code>##

my $var1 =5;
&func1($var1);

........somewhere else in code your func dec

sub func1 {
  #this will grab the variable $var1 you passed in
  my $private_var = shift;
}