use warnings;
use strict;
use Data::Dumper;

my %h = map $_ => split/:|,/ => 'x:q,y:u,z:n';

{ 
 local $Data::Dumper::Sortkeys = 1;  ## Update
 print Dumper \%h;
}