sub generate_throws_simple {
for(my $i = 0; $i < $main::b; $i++)
{
push(@main::wyniki, int(rand($main::a)+1));
}
}
1;