print map {"$_->[1], $_->[0]$/"} sort {lc($a->[1]) cmp lc($b->[1])} values %list;