$header_seen = 0;
while (<>) {
	unless ($header_seen) {
		# process header to get field names
		$header_seen++;
	} else {
		# process each subsequent record
	}
}