$a = 10;
    @a = qw(1 2 3);
    *b=*a;
    undef *a;
    print @b;