foreach my $key (sort { grabdataentry(\%hash,$a,0) cmp grabdataentry(\%hash,$b,0) }  keys %hash)