sort { $a =~ y/ //dr cmp $b =~ y/ //dr } @data