Main:
{
    my $data_file = $ARGV[0];
    my $sort_by = $ARGV[1];
    open(CLAIMS, $data_file) or die "CANNOT OPEN FILE: $!";
    my @claim_records = ();
    while (<CLAIMS>) {
        push(@claim_records, read_record($_));
    }
    close(CLAIMS);