$file_name =~ /^[A-Z]/i;
push @{$arrays->{$1}}, $infoline;