perl -MYAML -E '$vol = "asdf"; $x = { moo => scalar($vol =~ m/^HOLDING/) }; say $x->{moo} == 0'
1