while (<LINES>) {
    $_ =~ s/,+$/,/;
}