Select Code to Download

my @ff_fields       = qw( callno lname fname );
my @incident_fields = qw( callno type date hr );
...
        print("    @incident{@incident_fields}\n");
    }
}

my @ff_fields       = qw( callno lname fname );
my @incident_fields = qw( callno type date hr );
...
        print("    @$incident{@incident_fields}\n");
    }
}