my $random = int rand 10;