:perl @lines = sort {$a <=> $b} $curbuf->Get(1 .. 15)
:perl $curbuf->Set(1, @lines)

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|