sub all_same_file {
  my @desc = map {my @s = stat; "@s[0,1]"} @_;
  @_ == grep {$desc[0] eq $_} @desc;
}