diff --git a/release.pl b/release.pl
index 260c75f93f8d1eafd651fd210effb43e734e7749..64d9fe0dcc2293f470392b672766e63bc1edf905 100644
--- a/release.pl
+++ b/release.pl
@@ -32,8 +32,6 @@ sub Parse
 {	
 	my ($file, $applications) = @_;	
 	
-	local $top;
-	
 	if (-r "$file")
 	{
 		open(my $fh, "$file") or die "Cannot open $file\n";
@@ -115,7 +113,9 @@ sub Parse
     }
 }
 
-my $applications = {TOP => $top};
+my $applications;
+
+$applications{"TOP"} = $top;
 
 if ($ENV{GATEWAY} ne "")
 {