davido,
OWTDI is to change to a re-useable closure:

#!/usr/bin/perl -w
use strict;

my $static = mytest();

print $static->();

# Lot more code

sub mytest {
    my $static = "Persistent";
    return sub { $static };
}
[download]

Cheers - L~R