http://www.perlmonks.org?node_id=526656

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi all,

my $pat = {qw(a - b = c ~ d ^)}->{substr($0, 0, 1)};
what the above code does? I am interested to know the above functionality

"Keep pouring your ideas"