Select Code to Download

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

sub write_file {
    my ($cinfo, $data, $fields) = @_;
...

. . .
write_file($config{'info'}, $ref, [qw(bandwidth distance size active)]
+ );