I have a text file with contents like below . Ansv. specialist-/ överläkare: 1 Ordinerade läkemedel: 1 namn: 1 Undersökningsresultat: 1 H - Med avd K74: 3 Anamnes: 1 Bidiagnos(er) enl. ICD-10: 2 Uppföljning: 1 Nybesök: 1 Journalförare: 1 ASIH-Äldrebo Älvsjö: 4 Huvuddiagnos enl. ICD-10: 2 Vårdtid: 1 Orsakskod/text: 1 Bedömning: 1 Epikris: 1 H - AVA M83 Medicin: 8 Vårdförlopp: 1 Utskriftsdatum: 1 . I need to sort based based upon the Numerical values . I have wrote a piece of code and its sorting up based upon the alphabets

#!usr/bin/perl

open (FILE, "raj.txt") || die "Cannot open file.\n";
open (NEWFILE, ">rk.txt") || die "Cannot find or open file for editing
+.\n";



my %count;

while (my $line=<FILE>) {
         my @z = (split(/\n/,$line));
          ++$count{$z[0]};   
}

print "\n\tGRADES SORTED BY STUDENT NAME:\n";
foreach $key (sort (keys(%count))) {
   print NEWFILE "\t\t$key \t\t$keys{$values}\n";
}
close NEWFILE;
close FILE;
print "Done!\n";
[download]

please someone help me how to do this and also give me some explanation about how to do. I am a beginner in perl.