use Exporter;
package Sorts;

use base 'Exporter';
@Sorts::EXPORT = qw(caseless);

sub caseless { lc $a cmp lc $b }