print "Your final score is: $score_total\n\n"; # score organiser. 
print "Please enter your initials for the high score table: \n"; 
chomp (my $initial_add = <STDIN>); 
my @initials_array = (); 
push (@initials_array, $initial_add); 
my @score_array = ($score_total); 
push (@score_array, $score_total); 
print "Name = $initials_array[0]\tScore = $score_array[0]\n"; 

print "Initials \t Score \n";