Select Code to Download

my %Relevant;

 
...
            }

        }

foreach my $name (sort { $Relevant{$b} <=> $Relevant{$a} } keys %Relev
+ant) {

        $RESULTS = $RESULTS . "Severity: " . $name . "\n" . $Relevant{
+$name} . "\n\n"

        }