my @data = (
                    ['maggie', 'milly', 'molly', 'may'  ],
                    [13,       14,      15,      16     ],
                    ['shell',  'star',  'crab',  'stone']
               );

    $worksheet->Range('A1:D3')->{Value} = \@data;