perlquestion jesuashok Hi all, <p> <code> my $pat = {qw(a - b = c ~ d ^)}->{substr($0, 0, 1)}; </code> what the above code does? I am interested to know the above functionality </p> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-395537"> "Keep pouring your ideas" </div></div>