use strict;
use warnings;

use Data::Dumper;

my @arr1 = ('a');
my $var1 = 'b';

my (@surprise) = grep($var1, @arr1);

print Dumper( \@surprise );