@a = split /\s+/, join " ",
  ("1 " x 8, "2 " x 1, "3 " x 1);
print $a[int(rand 10)];