#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @EuserADgrps = ("abc\n", "xyz\n");

my @E = grep { !/^\n*$/ } @EuserADgrps;  #so weird it's probably wrong

print Dumper \@EuserADgrps;
print Dumper \@E;

chomp(@EuserADgrps);           #this modifies the @EuserADgrps array
print "now after the chomp of ".'@EuserADgrps'." \n";
print Dumper \@EuserADgrps;

__END__
printout:
$VAR1 = [
          'abc
',
          'xyz
'
        ];
$VAR1 = [
          'abc
',
          'xyz
'
        ];
now after the chomp of @EuserADgrps 
$VAR1 = [
          'abc',
          'xyz'
        ];