# In the main script:

my @ReturnValues;
my @AdminValues;
my @AdminTime;
my @AdminEndDate;

Admin(\@ReturnValues, \@AdminValues, \@AdminTime, \@AdminEndDate);

# This is the code in sub Admin:

my $sql = "SELECT DISTINCT user_id, realname FROM database.time_data WHERE version='$Version' AND product_id='$ProductID' AND milestone='$MileStone'";

my $sth = $dbh->prepare($sql);
	
$sth->execute();
	
while(my @RowAdmin = $sth->fetchrow_array())
{
   my %AdminData;
   $AdminData{"UserID"} 	= $RowAdmin[0]; 
   $AdminData{"RealName"} 	= $RowAdmin[1];
		
   # Insert them into hash
   push (@$AdminValues, \%AdminData);
}

# Get the stored days
$sql = "SELECT DISTINCT day FROM database.time_data WHERE version='$Version' AND product_id='$ProductID' AND milestone='$MileStone'";

$sth = $dbh->prepare($sql);

$sth->execute();
	
while(my @RowTime = $sth->fetchrow_array())
{
   my %AdminTimeData;
   $AdminTimeData{"Day"} 	= $RowTime[0];
		
   push (@$AdminTime, \%AdminTimeData);
	
my $sql2 = "SELECT app_end FROM database.time_data WHERE day='$AdminTimeData{'Day'}' AND version='$Version' AND product_id='$ProductID' AND milestone='$MileStone'";	

my $sth2 = $dbh->prepare($sql2);

$sth2->execute();
		
while(my @RowTime2 = $sth2->fetchrow_array())
{
   my %AdminAppEnd;
   $AdminAppEnd{"AppEnd"}	= $RowTime2[0];

   push (@$AdminEndDate, \%AdminAppEnd);
}		
}

$sth->finish();
$dbh->disconnect();

# Back in the main script:

# Pass Values to template
$vars->{'ReturnValues'} 	= \@ReturnValues;
$vars->{'AdminValues'}		= \@AdminValues;
$vars->{'AdminTime'}		= \@AdminTime;
$vars->{'AdminEndDate'}		= \@AdminEndDate;