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);


}