# here's the pre portion...
my $count;
my %data;

IterateOver::file({
  loop => sub {
    if (/^(.*?)\s*=\s*(.*?)\s*(?:#.*)$/)
    {
      $data{$1} = $2;
    }
  },
  $some_file
 );

# post goes here...