my $database = LoadDatabase('a.pl');
print "$database\n";
$database = LoadDatabase('b.pl');
print "$database\n";
$database = LoadDatabase('a.pl');
print "$database\n";
exit( 0 );
sub LoadDatabase {
    ....
}