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

##</code><code>##

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