Hi, I need to format my output of XL column : But not getting as expected ...

AR-AB-1111
AR-AB-23213
AR-AB-232
AR-AB-234
AR-AB-1
AR-AB-4
AR-AB-32
AR-AB-21
AR-AB-32
[download]

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use XML::XPath;
use Spreadsheet::Read;

my $book = ReadData("C:/SLB/Dashboard/DCSS_Applications.xlsx");
my $sheet = $book->[1]; # first data sheet
my @column = ($sheet->{cell}[3]); # 2nd column, unformatted
#@column =~ s/EAR-AA-//;
 
use feature 'say';
foreach my $row (@column) {
    for (@$row) {
        my $rowdata;
        #say $_ if (defined);
        $rowdata = @$row;
        say    $rowdata =~ s/AR-AB-//;
    }
}
[download]

Expected output :

1111
23213
232
234
1
4
32
21
32
[download]