my $compress_files;
  if ($ARGV[0] eq '-c') {
    $compress_files = shift @ARGV;
  };

  foreach (@ARGV) {
    ...
  };