print $form{'productprice'};#outputs 'thestring'
if (grep $_, @fields{@form{map "product$_", qw(price)}}){print "HELLO";} #outputs nothing