sub say { local $\ = "\n"; print(@_ or $_) }
sub IO::Handle::say { my $h = shift; local $\ = "\n"; $h->print(@_ or $_) }

##</code><code>##

use constant {
	IX_FILENAME => 0,
	IX_RUN      => 2,
	IX_DISTRICT => 8,
	IX_COPY     => 9,
	IX_TOTAL    => 10,
};

print Dumper 
	map {
		Dumper($_), $_->[IX_FILENAME]
	}
	sort {
		$a->[IX_RUN]      <=> $b->[IX_RUN]       or
		$a->[IX_DISTRICT] <=> $b->[IX_DISTRICT]  or
		$a->[IX_COPY]     <=> $b->[IX_COPY]      or
		$a->[IX_TOTAL]    <=> $b->[IX_TOTAL]		
	}
	map {
		[ $_, split /_/ ]
	}
	@files;