Select Code to Download

use strict;
...
    [ 'payment_direct', 'N', 'A2'],
);
%Claim_Table = get_table();

Main:
...
        push(@claim_records, read_record($_));
    }
    close(CLAIMS);

    &Sort_File($sort_by, @claim_records);
}

sub Sort_File {
...
        print STDOUT $record->{'claim_number'}, "\n";
    }
}

sub read_record {
    my ($line) = @_;
...
    }
    return %table;
}