#!/usr/bin/perl

while (<>) {
  chomp;
  my (undef,undef,undef,undef,$size,undef,undef,undef,$fname) = split;
  if (exists $rec{$size}) {
    print "$fname is the same as $rec{$size}\n";
  } else {
    $rec{$size} = $fname;
  }
}