column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
...      ...

column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
column1  column2
...      ...


##</code><code>##


sub _xlsout {
##################################################

my ($self, %arg) = @_;

my $value = $self->{values}=$arg{values};  # get the values
my $key = $self->{key}=$arg{key};          # decide about the right template
my @SHarray = @$key;
my $indeks = @SHarray;
my $workbook  = Spreadsheet::WriteExcel->new("Phylostratigraphic_map.xls"); # create xls file
my $worksheet = $workbook->add_worksheet();
my $chart = $workbook->add_chart_ext("./bin/Phylo$indeks.bin", '####Map####');    # ----------> here is where i import the excel template 

$worksheet->store_formula('=Sheet1!A1');
 
my $chart_font_1 = $workbook->add_format(font_only => 1);
my $chart_font_2 = $workbook->add_format(font_only => 1);

my $bold = $workbook->add_format(bold => 1);

$worksheet->set_column('A:A', 18);  
$worksheet->set_column('B:B', 18); 

$worksheet->write('A1', 'Phylostratum',  $bold); 
$worksheet->write('B1', 'Hit',  $bold);


my $row = 1;

$worksheet->write_col('A2', $value);


}