in reply to how can i create a hash by reading an array

my %h= map { chomp; split /\s+/,$_,2 } <>;

$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print