sub Sort_File {
    my ($sort_by, @claim_records) = @_;

    my $sort_sub;

    # If the sorting type is numeric
    if ( $Claim_Table{$sort_by} eq 'N' ) {

        # Create sub for numeric sort
        $sort_sub = sub { $a->{$sort_by} <=> $b->{$sort_by} };

    } # End if numeric

    # Otherwise it's lexical
    else {

        # Create sub for lexical sort
        $sort_sub = sub { $a->{$sort_by} cmp $b->{$sort_by} };

    }

    foreach my $record ( sort $sort_sub @claim_records ) {
        print STDOUT $record->{'claim_number'}, "\n";
    }
}