Select Code to Download

#! perl
use strict;
...
        print "Now compare ($first_key : $first_val) with ($next_key :
+ $next_val)\n";
    }
}

Now compare (keya : vala) with (keyb : valb)
Now compare (keyb : valb) with (keyc : valc)
...
Now compare (keyf : valf) with (keyg : valg)
Now compare (keyg : valg) with (keyh : valh)
Now compare (keyi : vali) with (keyj : valj)