#!/usr/local/bin/perl

*name2 = *name1;
$name1 = 14;
print ("$name2\n");
