perl -e '%hash = (q|check1/init|=>3,q|check2/hi|=>4); for(keys %hash){print join qq|\n|,split qq|\/|,$_};'