Select Code to Download

use strict;
use warnings;
...
print Dumper(\@x);
my @y = trim_nonempties(@x);
print Dumper(\@y);

$VAR1 = [
          ' hello ',
...
          'abc',
          'def'
        ];