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

##</code><code>##

for $key (keys %$arrays){
  for $element (@{$arrays->{$key}}){
    print $element;
  }
}