my %identity = qw/name billy state colorado age 21/;
print $identity{name} , "\n",
      $identity{state}, "\n",
      $identity{age}  , "\n";