Anthony, Worked like a charm! Thanks. Mark > > foreach ( sort smashcase(keys(%foo)) ) { print("$_\n"); } > > sub smashcase { lc($a) cmp lc($b); } > -- ******* PLEASE NOTE ******* Our area code has changed! ******* PLEASE NOTE ******* Mark A. Sharkey World Class Web Sites mark at wcws.com 800 844 4434 (toll free) 480 461 9765 (local) 480 461 9312 (fax)