Select Code to Download

use Data::Dumper;

...
  }
  return @nlist;
}

sub reform_list{
  my $size=shift;
...
  }
  return @nlist;
}