my($dbh) = @_;
    my @datamodels;
    my %filenames;
    my %dbids;
    my $sql = "select DATAMODEL_CD, DB_ID, FILENAME from PRDRELEASE where RELEASE_FG = 1";
    my $sth = $$dbh->prepare($sql)
           or $app->error($FATAL, "Can't do SQL statement [ $sql ] :: $DBI::errstr");
    $sth->execute();

    while (my @values = $sth->fetchrow_array()){
    push (@datamodels, $values[0]);
    $dbids{$values[0]} = $values[1];
    $filenames{$values[0]} = $values[2];
    }#end while loop

    printf("@datamodels\n");
    my $numelements = @datamodels;
    return (\@datamodels, $numelements, \%dbids, \%filenames);


##</code><code>##

my ($datamodels, $numelements, $dbids, $filenames) = get_data(\$dbh);


##</code><code>##

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