for my $field_name (qw( bandwidth distance size active )) {
   my $value = $$ref{$field_name};
   print $FH "$field_name, $value\n";
}