Fixes/optimizations:

# 4 -- 19 chars
sub g4 { split//,pack"H*",@_ }

# 6 -- 47 chars
sub g6 { sort{($a=~($_='([aeiou])'))[0]cmp($b=~$_)[0]}@_ }
[download]

japhy -- Perl and Regex Hacker