# Sort by SHA-512 digest of scripts
# (optimized with Gutman-Rosler packed default sort)
@sorted_scripts 
  = map { substr($_, 64) } 
    sort 
    map { sha512($_) . $_ } 
      @scripts;