my %aliases_for_things = map split(/ /,$_,2), map uc, @somearray;
return %aliases_for_things;