@fieldnames = split(/$separator/,$firstline);