($firstLetter)= ($file_name=~ /^(.)/);
push(@{$hash{uc($firstletter)}}, $infoline);