sub analysis {

    my $EXworkbook  = Spreadsheet::WriteExcel->new( "output.xls" );
    my $EXworksheet = $EXworkbook->add_worksheet( 'Worksheet1' );

    my $chart = $EXworkbook->add_chart( type => 'column', embedded => 1 );

    # Insert the chart into the a worksheet.
    $EXworksheet->insert_chart( 'E2', $chart );
}