close FASTQIN;
my %count_seq;

if (defined $temp)
{
    open my $fh, '<:encoding(UTF-8)', $temp or die "Cannot open $temp $!";

    while (<$fh>)
    {
        ...
    }
}