my @a= (1..5) ;
undef @a;