Help for this page
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"; }