# make it a "sort sub"

sub alphabetical {
    # compares lower-cased versions of the strings
    lc($a) cmp lc($b);

}

# to sort having defined this sub, you do
@list = sort alphabetical @list;