foreach my $datamodel (keys %$filenames) {
   my $file = $filenames->{$datamodel};
   print "$file\n";
}