my %h = map { ( split /=/, $_, 2 ) } split /,/; #### print "$h{'msgagt'}\n" if exists $h{'msgagt'};