my %recordData = map{split /\s+/, $_} grep {length $_} split "\n", $record;
    my @solvents = grep {/^solvent\d+/} keys %recordData;
    my @fractions = grep {/^F\d+/} keys %recordData;