@file=map { substr $_, 7 }
  sort map sprintf("%06d", /(\d+)\.zip/) . $_, @file;