selectperlbrew.pl printing hash value based on key