##
my (%config) = (
filename => "/path/to/file",
filemode => "immolate",
opmode => "seek",
filetype => "image/gif",
);
##
##
my ($thing) = $config{'thing_to_mash'};
for (my $x = 0; $x < 100_000_000; $x++)
{
DoCrazyStuff($thing, $x, Foo($x));
}
##
##
sub Config { return $config{$_[0]}; }