Select Code to Download

$rank[ $data{$_} ] .= "$_\n" for sort keys %data;
defined and $n += print s/^/$n - /gmr for reverse @rank;