Shell Programming and Scripting

Hi,
Can anyone advise how to correct my script pls?
I'm not getting the correct output =(

Details below:

Logfile
========
Player Num : 14
Player Name : Jacee Thirkins
MVP winner : 1998
End of details....

Player Num : 35
Player Name : Lander Diaz
MVP winner : 2002
End of details....

Player Num : 14
Player Name : Jacee Thirkins
MVP winner : 1999
End of details....

Player Num : 35
Player Name : Lander Diaz
MVP winner : 2001
End of details....

Player Num : 14
Player Name : Oman Rodriguez
MVP winner : 1997
End of details....

Player Num : 35
Player Name : Larry Simpkins
MVP winner : 2003
End of details....

Player Num : 14
Player Name : Jacee Thirkins
MVP winner : 1996
End of details....

Player Num : 35
Player Name : Lander Diaz
MVP winner : 2002
End of details....

Player Num : 14
Player Name : Stephen Jabinzki
MVP winner : 1999
End of details....

Player Num : 35
Player Name : Lander Diaz
MVP winner : 2004
End of details....

Player Num : 35
Player Name : Larry Simpkins
MVP winner : 2005
End of details....


Script
=======
open (INFILE,"$inputfile");
open (OUTPUT, ">$outfile");

my %player_count;
my @all_player;

while ($cur_rec = <INFILE>)
{
if ( $cur_rec =~ m/Player Name/ )
{
@record = split(/:/, $cur_rec);
$playername = "$record[1]" . "$record[2]";
push(@all_player, $playername);
}
}

@sorted_player = sort @all_player;
for $player (@sorted_player)
{
if ("$player" eq "$prev_player" || $ctr == 0 )
{
$ctr++;
}
else
{
$player_count{$ctr} = $player;
$ctr=1;
}
$prev_player = $player;
}

$countr = 0;
for $count (keys %player_count)
{
if ( $countr <= 4 )
{
print "\nPlayer: $player_count{$count} MVP awards: $count\n";
$countr++;
}
else
{
$player_count{$player} = $ctr;
$ctr = 0;
}
}

close (TEST);
close (OUTPUT);


Expected output (should be in order who got the most awards in total):


Top5 MVP winners
===============
Lander Diaz
Jacee Thirkins
Larry Simpkins
Oman Rodriguez
Stephen Jabinzki

Code:

my %player_count;

open (INFILE,"$inputfile");

while (my $cur_rec = <INFILE>){
   if ( $cur_rec =~ m/Player Name\s*:\s*(.*)/ ){
      $player_count{$1}++;
   }
}
close (INFILE);

my @top_five = (sort{$player_count{$b} <=> $player_count{$a}} keys %player_count)[0..4];
print "$_ = $player_count{$_}\n" for @top_five;