#!/usr/bin/perlmy $maxnn = 2000;my $nodes;my @done;for (my $i=1; $i<=$maxnn; $i++) { $done[$i] = 0;}while (<>) {  if ($_ =~ /M 0.0 nn (\d+) x/) {    $nodes = $1;  }  if ($_ =~ /N ([\d.]+) _(\d+)_ energy 0.000/) {    if ($done[$2] == 0) {      $now = int($1);      $prev = $now - 1;      $nodes--;      print "$now $nodes\n";      $done[$2] = 1;    }  }}