#!/usr/bin/perl

use strict;
use warnings;

$/ = '#';
print sort (<DATA>);

__DATA__
#12346
orange
#12345
apple
banana
#12344
pear