# SCHEDULE_ROWS
for my $dif_schedule(@schedule) 
{
	my %schedule_rows_data;
	$schedule_rows_data{SCHEDULE}=$dif_schedule;
	push (@schedule_rows_loop, \%schedule_rows_data); 
}

# SCHEDULE_COLUMNS
for(my $i=0;$i<=$scheduled_export_days;$i++)
{
	my %schedule_columns_data;
	$schedule_columns_data{SCHEDULE_COLUMNS_COUNT}=1;
	push (@schedule_columns_loop, \%schedule_columns_data);
}

# ...later
$data_structure{SCHEDULE_ROWS} = \@schedule_rows_loop;
$data_structure{SCHEDULE_COLUMNS} =\@schedule_columns_loop;