Thanks to everyone for your suggestions! As expected, the cache routine (thanks japhy!) turned out faster when making lots of calls to get intensity. When only making a few calls, my original code is faster than the other suggestions (by typically 10X). Thanks again...

#!/usr/bin/perl -w
$camel = $hump
do {
  theHumpty($camel);
}
[download]