% perl -le '@a=0..4; delete $a[1]; print exists($a[1])||0'
0