print join (' ', map {
   srand ($_->[0]);
   my $l;
   for (1..$_->[1]) {
      $l = ''; $l .= chr (int (rand (58))+65) for 1..6;
   }  
   substr ($l, 0, $_->[0] < 1024 ? 4 : 6)
} [346, 5305], [59235, 9374], [512, 2698], [104315, 5127]), "\n";