#!/usr/bin/perl
use strict;
use warnings;

my @array;
while( <DATA> ) {
  @array = (@array,$_);
  if (/<sep>/) {
    print join '',sort {$a <=> $b} @array;
    print "<sep>\n";
    @array=();
  }
}
print join '',sort {$a <=> $b} @array;
__DATA__
<sep>
22
1
3
<sep>
4
2
44

##</code><code>##

Argument "<sep>\n" isn't numeric in sort at foo.pl line 14, <DATA> line 8.
Argument "<sep>\n" isn't numeric in sort at foo.pl line 14, <DATA> line 8.
<sep>
<sep>
1
2
3
4
22
44