$spud = "Wow";
@spud = ("idaho", "russet");
*potato = *spud;   # Alias potato to spud using typeglob assignment

print "$potato\n"; # prints "Wow!"
print "@potato\n"; # doesn't work!!!!!