sub reform_list{
  my $size=shift;
  my @list=@_;
  my @nlist=();
  my $list_size=scalar(@list);
  my $c;
  my $stop=int($list_size/$size)*$size;
  for($c=0;$c<$stop;$c+=$size){
    push @nlist,[@list[$c..($c+$size-1)]];
  }
  if($c<$list_size){
    push @nlist,[@list[$c..($list_size-1)]];
  }
  return @nlist;
}