...
my $xlsx = $fp;
$xlsx =~ s/csv/xlsx/;
...
my $workbook  = Excel::Writer::XLSX->new("$xlsx");