Select Code to Download

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

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

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