#!/usr/bin/perl
#

$max = 20;
$file = "./planck.out";

for ($i = 1; $i <= $max; $i++) {
  $cmd = "grep \" $i \" $file | wc";
  # printf "cmd is ..$cmd..\n";
  $ret = `$cmd`;
  # printf "ret is ..$ret..\n";
  @words = split(/\s+/, $ret);
  $num = $words[1];

  printf " i %6d  num %6d \n", $i, $num;
}

exit 0;
