$scalar = 10;

@array = (1,2);

​

print "1 - Value of Scalar is $scalar\n";

print "1 - Value of Array is @array\n";

​

undef( $scalar );

undef( @array );

​

print "2 - Value of Scalar is $scalar\n";

print "2 - Value of Array is @array\n";

​