Perl doesn't do it automatically, but you can very easily cache it yourself.

my %cache;
while ($foo < $cache{$bar} ||= ReallyComplexFunction($bar)) {
    doStuff();
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.