Help for this page
# print $fn, $ln and $id to OUTPUT_A if $id = @a[0,1,2...n] # elsif print $fn, $ln and $id to OUTPUT_B if $id = @b[0,1,2...n] # elsif print $fn, $ln and $id to OUTPUT_C if $id = @c[0,1,2...n]
@data {@c} = ($fh_c) x @c; @data {@b} = ($fh_b) x @b; @data {@a} = ($fh_a) x @a;