Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my @sorted_names = sort { $hash{$b} <=> $hash{$a} } keys %hash;
print $hash{$_},' ',$_,$/ for @sorted_names;

foreach (@names_marks) {
  ($names[$_], $marks[$_]) = split / /, $_;
  $hash{"$marks[$_]".$names[$_]} = ucfirst($names[$_]). " " . $marks[$
+_];
}