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

##</code><code>##

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