Help for this page
Odd number of elements in hash assignment at ...
use strict; use warnings; ... main::right('main=SCALAR(0x8167870)','name','Paul','age','30') name => Paul age => 30
if(!$data{$match}) { $data{$match}++; $count = $count + 1; }