@data = split;
($mask,$x,$y,$ftdens) = @data;