How can I make these sort routines case insensative?
@file = sort grep { /.tmp/} readdir(DIR);
foreach $record (sort keys %db_array) {
@db_array = split(/ /, $db_array{$record});
@file = sort grep { /.tmp/} readdir(DIR);
foreach $record (sort keys %db_array) {
@db_array = split(/ /, $db_array{$record});