while (my $line = ..datasource..) {
    my ($first, $rest) = split /,/, $line, 2;
    print $OFH $rest;
}