Help for this page

Select Code to Download

Select or download this
```
sub grabdataentry
{
...

}
```

Select or download this

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