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