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