Select Code to Download

#!/usr/bin/perl -w

...
delete $arr[2];

print join(" ", map { defined() ? $_ : '[undef]' } @arr),"\n";;

#!/usr/bin/perl -w

...
$arr[3]='d';

print join(" ", map { defined() ? $_ : '[undef]' } @arr),"\n";

a [undef] [undef] d