my $lastrow = $sheet->UsedRange->Find(
        {   What            => "*",
            SearchDirection => xlPrevious,
            SearchOrder     => xlByRows
        }
    )->{Row};