#!/usr/bin/perl -ln

use strict;
use warnings;

BEGIN { @ARGV='find . -xdev|' }

our %files;

my ($ino, $nlink)=(stat)[1,3];
next unless $nlink and $nlink > 1;
if ($nlink == push @{ $files{$ino} }, $_) {
    print "$_ => $ino" for @{ $files{$ino} };
    delete $files{$ino};
}

__END__