sub is_list_homegeneous{
  my @list=@_;
  my $val=shift @list;
  foreach(@list){
    return 0 if($_ ne $val)
  }
  return 1;
}