Select Code to Download

# make it a "sort sub"

...

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

@list = sort { lc($a) cmp lc($b) } @list