if ( $s =~ $$hash{ "s" }) 
     { print "\t1 ok\n";}else { print "\t1 NOK\n";

if ($d =~ $$hash{ "p1" }){ print "\t2 ok\n";}else{ print "\t2 NOK\n";}
!