my ($dbh, $datamodel, $date, $numelements, $filenames) = @_; 
my $file = "$filenames{$datamodel->[$count]}"
print "$file\n";