#!/usr/bin/perl
%_=(106=>[1],117=>[2],115=>[3], 116=>[4,9],32=>[5,13,18],97=>[6,20], 110=>[7],111=>[8],104=>[10,19],101=>[11, 15,23], 114=> [12,16,24], 112=>[14],108 =>[17],99=> [21],107=>[22 ],74=>[1],85 =>[2],83=>[3],84=>[4,9],32=>[5,13,18],65 =>[6,20],78=>[7],79=>[8],72=>[10,19],69 =>[11,15,23],82=>[12,16,24],80=>[14] ,76=>[17],67=>[21],75=>[22]);while (1) {system clear; $_____=int rand 255;$____=0;if ($_ {$_____} ) { my @______ = @ { $_ { $_____}};$___[$_] = chr $_____ for @______;for (@___) { $____++ if $_;}} print $_ for @___; last if $____ == 24 ; } print "\n"; #Japh Random Search ##################