while (<>) {
    my %thisrecord = ();
    # 11 lines of code to populate %thisrecord
}
print "$thisrecord{'jrUserFriendlyID'}";