my (@md5subout, $md5subout);
...
$md5subout = @foundmd5[0];