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);
}
[download]