if( scalar( @array ) > 1 ) {
  splice(@array,$i,0);
} else {
  @array = ();
}