Select Code to Download

use strict;
use warnings;   
...
  my @indices = @_;
  print "\t$x[$_] => $y[$_] at position $_\n" for @indices;
}

The five highest valued names:
    k => 9 at position 4
...
    c => 4 at position 0
    e => 5 at position 2
    d => 6 at position 1