#!/usr/local/bin/perl
                                                                                                                             
@d = ( 1,2);
$array = \@d;
$array = \();
$$array[0] = 1;
                                                                                                                             
print "Value :", $$array[0] , "\n";