my @set_S;
my @nset_S;
my @epsilons;
my $r=0;

for $r (0..99){
    $set_S[$r] = [$r];
}

$q = 2;
$sigma_square = 0.1 * $q;
for my $err (0..$#set_S){
    $epsilons[$err] = rand($sigma_square + 1);
}
my $t=0;
for my $s (0..$#set_S){
    print "@{$set_S[$s]}\t$epsilons[$s]\t";
    @{$set_S[$s]} = @{$set_S[$s]} + $epsilons[$s];
    print @{$set_S[$s]}, "\n";
    $t++;
}