Select Code to Download

my %code = map {
    $_ => calculation($_)
} @strings;
@strings = sort { $code{$b} <=> $code{$a} } keys %code;