while (<$fh>) {
    my ($value, $truth) = split /,/;
    push @groups, [$value, $truth];
}