my $seq = $seq; # capture the intials ($seq) from $targetfile   

##</code><code>##

    if ($dir =~m|$sequser{$seq}| ){