Select Code to Download

map  { $_[0] }
sort { $a->[1] cmp $b->[1] }
map  { [ $_, grabdataentry(\%hash, $_, 0) ] }
keys %hash;

sub grabdataentry
{
  my $href=shift;
  ...
  my @list=split /;/, $href->{$skey};