@userz_tmp = qw/goodman hsytva %pisyun [error] Gerich Fair CYCLER ~shurmann &BECHED sp w %sanekdark FIXER lizergin @XUEC/;

foreach(sort sorting @userz_tmp) {
 print "$_\n";
}

sub sorting {
 lc($a) cmp lc $b;
}