my @list = @{$work_package->{$key}};
            for (my $a_id=0; $a_id <= $#list; $a_id++) {
                $list[$a_id]=$indx;
                print " $list[$a_id]\t";
            }
            print "\n";