sub DoSomethingToArray (\@)
{
      my ($array) = @_;

      for ($br = 0; $br <= $#{$array}; $br++)
      {
            # Do stuff with @$array using references
      }
}

# Call it simply as:
DoSomethingToArray(@config::a);
DoSomethingToArray(@config::b);
DoSomethingToArray(@config::c);