sub compare_paths{
  my @path1 = split /\//, +shift;
  split /\//, +shift;
  grep $_ ne +shift, @path1;
}