my $mail_date = $ARGV[0];
my $row = 0; my $col = 0;

$xWS->write($row,$col++,$_) for @{$sth->{NAME}};

my $name = @{$sth->{NAME}} =~ /\/.*/;

while (my $ar = $sth->fetchrow_arrayref) {
    s{^.*/}{} for @$ar; # this regex thanks to perlmonks
    ++$row, $col = 0;
        $xWS->write($row,$col++,$_) for @$ar, $mail_date;
}
$xWB->close();
print $name;

##</code><code>##

Applying pattern match (m//) to @array will act on scalar(@array) at (my script name)