use Exporter;
package Sorts;

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

sub caseless { lc $a cmp lc $b }