my %annoying; $annoying {"I am"}= "you are"; $annoying {"you are"} = "I am"; $key = "I am"; for (1..10) { print $annoying{$key}," glad "; $key= $annoying{$key}; } print ".";