my $flag; if (my_var =~ /some string/){ $flag++; } my $param = { flag => $flag, }; ####