@filesImage = sort { $a->{name} cmp $b->{name} } @filesImage; @filesAudio = sort { $a->{name} cmp $b->{name} } @filesAudio; @filesText = sort { $a->{name} cmp $b->{name} } @filesText; @filesUnknown = sort { $a->{name} cmp $b->{name} } @filesUnknown; @filesDirectory = sort { $a->{name} cmp $b->{name} } @filesDirectory; #### foreach (\@list1, \@list2) { @$_ = sort {$a cmp $b} @$_; }