Help for this page
#!/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