Select Code to Download

@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} @$_;
}