my (%inf,@info,@keys,$phile,$key,$value);