open IN, $data or die "Cannot open $data for reading:$!\n";