c:\@Work\Perl\monks>perl -wMstrict -le
"use warnings;
 use strict;
 ;;
 use Data::Dump qw(dd);
 ;;
 my @stuff = ('abc', 123, 'ab4', '123', 456, [ 123 ], { 123 => 'x', x => 123 });
 ;;
 my $thing = 123;
 my @filtered = grep { $thing ne $_ } @stuff;
 dd \@filtered;
 ;;
 $thing = '123';
 @filtered = grep { $thing ne $_ } @stuff;
 dd \@filtered;
"
["abc", "ab4", 456, [123], { 123 => "x", x => 123 }]

["abc", "ab4", 456, [123], { 123 => "x", x => 123 }]