my ($filename) = "/path/to/file";
    my ($filemode) = "immolate";
    my ($opmode)   = "seek";
    my ($filetype) = "image/gif";

##</code><code>##

    my (%config) = (
           filename => "/path/to/file",
           filemode => "immolate",
           opmode   => "seek",
           filetype => "image/gif",
    ); 

##</code><code>##

     my ($thing) = $config{'thing_to_mash'};
     for (my $x = 0; $x < 100_000_000; $x++)
     {
           DoCrazyStuff($thing, $x, Foo($x));
     }

##</code><code>##

    sub Config { return $config{$_[0]}; }