Select Code to Download

sort { $h->{$b}{s} <=> $h->{$a}{s} } keys %$h

use strict;
use warnings;
...
   print "Element 1: $total{$k}{f}\n";
   print "Element 3: $total{$k}{s}\n";
}