note
moxliukas
<p>A first thought that comes into my mind would be to construct a hash of arrays (HoA) to get rid of those 26 arrays that you have (and what if the filename doesn't start with a letter at all?)</p>
<p>here is some code:</p>
<code>
$hash{$_} = [] for ('A'..'Z'); # prepare some empty arrayrefs
$file_name =~ /^(.)/; # Mmm... It would be better to use a substr here :/
push @{$hash{uc($1)}}, $infoline; # push an $infoline, first by uppercasing the key
</code>
<p>I am no Perl guru, so others will probably point to a better direction.</p>
261814
261814