sub compare {
  my ($previous,$present) = @_;
  ...
}