This is my first japh ...

#!/usr/bin/perl -w
@1=split//,$"x(@l=map{split//}map{$^=$".$_^$[x(length($_)+1)}qw;zECD q
+^_DXUB `UB\ xQS[UB;);
map{sleep 1;$.=int(rand($#l)+1)while$l[$.]eq$";($1[$.],$l[$.])=($l[$.]
+,$1[$.]);print"\e[H\e[J@1$/"}$[..$=/3+4
[download]

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print