foreach my $stmt (@data) 
    { 
        $worksheet->write($row++, @data); # !!
        last; 
    }