#!/usr/bin/perl

@myarray=(1,2,3,4,5,6,7);
print "@myarray\n";

@myarray = grep { $_ != 3 && $_ != 5 } @myarray;
print "@myarray\n";
[download]