open( OUT, '>>', $fil ) or die $!;