my(%conscols2)=%{pop(@_)};
open(FILEHANDLE,">>filename");
select(FILEHANDLE);

@cons_block=keys(%conscols2);