#!/usr/bin/perl -w
$a=\100;  #initialise $a to 100 and map it to it's address
$$a=60;   # modify the value of $a 
print $$a; #should print 60