http://www.perlmonks.org?node_id=390056


in reply to sorting inside specific

You probably just need to split your data into blocks. Once you do that, sort the values in each block.

use strict; use Data::Dumper; undef $/; # read all data my @sets = split('<sep>\s', <DATA>); # split by block foreach (@sets) { my @values = split /\s/; # get each value in block my @sorted = sort { $a<=>$b } @values; print Dumper(\@sorted); }