Select Code to Download

use strict;
use warnings;
my %h = ('a'=>'123','b'=>'xxx','c'=>'');
my %newhash;                             
for(keys %h){ $newhash{$_} = $h{$_} if $h{$_} ne '' };
print join(",", keys %newhash)."\n";

use strict;
use warnings;
...
    die "eval $@" if $@;
}
print "a=$a\n";

#!/usr/bin/env perl
#use strict;
...
    die "eval $@" if $@;
}
print '@arr_0='."@arr_0\n".'$scal_1='."$scal_1\n";

Possible unintended interpolation of @arr_0 in string at b.pl line 45.
Name "main::arr_0" used only once: possible typo at b.pl line 45.
...
eval: $scal_1 = 'abc';
@arr_0=lakja haljl alka
$scal_1=abc