my %size1 = &size_list('path/to/file1') ;
  my %size2 = &size_list('path/to/file2') ;
  
  if ( $size1{'wirerrrle/pqc/bcgr.o'} == $size2{'wirerrrle/pqc/bcgr.o'} ) {
    print "OK\n" ;
  }

#############
# SIZE_LIST #
#############

sub size_list {
  my ( $file ) = @_ ;

  open (FILEIO,$file) ;
  my $data = join '' , <FILEIO> ;
  close (FILEIO) ;
  
  my (@list) = ( $data =~ /(\d+)\s+\w+\s+\d+\s+[\d:]+\s+(.*?)\s/gs );
  my %sizes ;
  for (my $i = 0 ; $i <= $#list ; $i+=2) {
    $sizes{@list[$i+1]} = @list[$i] ;
  }
  return( %sizes ) ;
}