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