#!/bin/perl use strict "refs"; $animal="dog"; $dog="Tom"; print "${$animal}\n"; eval "\$$animal='Tom';"; print "${$animal}?\n";