...
 push @{ $real_dups{ stat($filename)->inode } }, $filename;
...