Select Code to Download

sub compare {
  return unless length $_[0] == length $_[1];
...

  return 1;
}

{
   my @data = (
...
   printf("%-5s -   %-8s is %sOK\n", @$_, (compare(@$_)?'':'not '))
      foreach @data;
}