while ( (my ($key,$atr)) = (each %vars))
{
print "$key, $atr\n";
my $method = "prefix_$key";
$f->$method( $atr );
}
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon