use strict; use warnings;

my @arr = (1, 2, 3, 4, 5);
my $pat = '$_ < 3';
my @res;

@res = grep {$_ < 3} @arr;
print "Literal:\t@res\n";

@res = grep {$pat} @arr;
print "Variable:\t@res\n";