my %hash = map { (split /:/, $_ )[0] => (split /:/, $_ )[2] } ; #### print join ( "\n", sort keys %hash ); #### (split /:/, $_ )[2] #### (split /:/, $_ )[0]