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(rand(10)+70)."\t".int(rand(10)+70)."\t".int(rand(10)+70)."\t".int(rand(10)+70)."\n"}@n;