# untested
use Sort::Key qw(keysort);
use Sort::Key::Natural qw(mkkey_natural);

@sorted = keysort { join "\x00\x00", map mkkey_natural, split /\//, $_ } @paths;