test.pl

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use List::MoreUtils qw(uniq);
use Data::Dumper::Names;

my @tab = (["12","25","2","18","9","25","18","30","30","12","30","30","18","12"],["154","12","56","8","22","88","74","12","56","32","88","88","56","12","12","56"]);

print "=============Before=============\n";
print Dumper(@tab);

foreach my $row (@tab) {
    @$row = uniq @$row;
}

print "=============After=============\n";
print Dumper(@tab);