while(@fnames) {
  my $f = shift @fnames;

  for my $f2 (@fnames) {
    last if($size{$f} != $size{$f2});