#!/usr/bin/perl -w

  
    use Excel::Writer::XLSX;
    
     my $workbook  = Excel::Writer::XLSX->new( 'simple.xlsx' );
    my $worksheet = $workbook->add_worksheet();


print "How many Sirial Numbers do you need?\n";
$comp= ITS;
$mal= <STDIN>;

for ($number=0001; $number< $mal; $number++)
{
 
 $exp= $comp.$number;
 
 
    
  
}

    
  @array= $exp;
 $array_ref = \@array; 
 
  $worksheet->write_col( 0,0 , $array_ref);