#!/usr/bin/perl

use Identity;

# You can name these things whatever you like:
tie @num, Identity;
tie %str, Identity;

print "3 + 4 = $num[3+4];\n";
print "It is now $str{localtime()}.\n";
print "substr('Neeto Keeno', 6, 4) = $str{substr('Neeto Keeno', 6, 4) . '!'}\n";


print "Don't use \$num for floats:  pi = $num[4*atan2(1,1)]\n";
print "Use \$str instead:  pi = $str{4*atan2(1,1)}\n";