my @h = 1..10;
bad(@h);

sub bad { 
  undef @h;
  print for @_;
}