

open(BIBFILE,"j09.tbl") or die "Can't open bib file: $!\n";
open(OUTFILE,">j09.grp");

while($line = <BIBFILE>)
  { 
    chop($line);  
    ($a1, $a2) = split(" ",$line);
    $a1 = $a1-1;    
    $a2 = $a2 -1;    
    print OUTFILE "$a1 $a2\n";    
}

close(BIBFILE);
close(OUTFILE);
