my %hash = map { my ( $one, $two ) = (split /:/, $_ )[0,2]; $one => $two; } ;