Pugs Perl6 version: print ('a'..'z','A'..'Z',0..9).pick for 0..8;