A simple way that is completely independent of this subroutine is to open the filehandle, capture the first line in a scalar, close filehandle, split on commas and capture the first element.

edit: go with kcott's suggestion. It is much nicer.