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