my %groups;
push (@{$groups{substr($_,0,1)}},$_) for @files;