#!/usr/local/bin/perl -w
use strict;

my @data = (<DATA>);
print "Naked...\n\n";
for (sort @data) { print }
print "\nNow defined....\n";
for (sort {$a cmp $b} @data) { print }
exit;
__END__
1
3
 2
merlyn
4
10
birthday
12
 9