#!/usr/bin/perl
sub generate_list{$_=q!$;=@_[0];$;--;$_='(0...9,"a"..."z","A"..."Z")';for($i=0;$i<=$;;$i++){$*.="\@t$i=$_;";$@.="for(\$c$i=0;\$c$i<=\$#t$i;\$c$i++){";}$.=$*.$@;$:='print';for($,=0;$,<=$;;$,++){$:.="\$t$,\[\$c$,\].";}$:.='$/;'.'}'x($;+1);return$..$:;!;eval eval}generate_list 2;