以下の５通りは、すべて正常に動作します。 use strict; my %aaa; my $xxx = "xxx"; $aaa{xxx} = 111; print "-1- " . $aaa{xxx}, "\n"; #1 $aaa{'xxx'} = 111; print "-2- " . $aaa{'xxx'}, "\n"; #2 $aaa{"xxx"} = 111; print "-3- " . $aaa{"xxx"}, "\n";…