#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my @goodstuff=1..5;
my @badstuff=(1,3);

my @newstuff = grep !($_ ~~ @badstuff) => @goodstuff;
say "@newstuff";

__END__