There seems to be a common theme of golf from eyepopslikeamosquito

How about some scores...

use List::Util qw(shuffle);
@n=qw(Andrew Bob Charlie David);sub h{my$n=pop;$n=~s/([aeiou])/lc$1/eg
+;$n}print"$_\t"for shuffle map{h($_)}@n;print"\n",map{$_."\t".int(ran
+d(10)+70)."\t".int(rand(10)+70)."\t".int(rand(10)+70)."\t".int(rand(1
+0)+70)."\n"}@n;
[download]