Help for this page
map { $_[0] } sort { $a->[1] cmp $b->[1] } map { [ $_, grabdataentry(\%hash, $_, 0) ] } keys %hash;
sub grabdataentry { my $href=shift; ... my @list=split /;/, $href->{$skey};