#! perl
use strict;
use warnings;
use Data::Dump;

my  $string_or_number   =   123;
my  @strings_or_numbers = ('abc', 123, 'ab4', 456);
my  @filtered = grep { "$string_or_number" ne "$_" } @strings_or_numbers;
dd \@filtered;