Select Code to Download

sub reformat {
   local $_ = shift;
...
}

reformat(@data) if @data;

my $first = 1;

...
}

print("\n");

my $first = 1;

...
r_acctng,queuing enabled,printing disabled
r_acctng_8150,queuing enabled,printing disabled
R_NETADMIN,queuing enabled,printing disabled