my $sth1 = $db->prepare("SELECT ... FROM WF_WORKFLOW WHERE  .... = ?"); # Japanese characters elided
$sth1->execute($scode1);

my @results = $sth1->fetchall_arrayref({});