my $var;

sub the_first {
    $var = func1();
}

# many, many lines of code later

sub the_second {
    $var = disfunction();
}