open(*DATA,$files{$_}) or die;