Here is another way - Ref to existing hash ..

Move "choice" declaration down, and change last few lines to :

my $choice = \%computerAttributes;
foreach my $key ( keys %{$choice})
{
  print "$key\n";
}
[download]

Although this does not exactly map to your problem description (since $choice is NOT a string anymore), I suggest that this is a less error-prone approach, and you should structure your code to use this mechanism, if you possibly can. If not, the HOH solution described above is a good choice.