#!/usr/local/bin/perl

my %profile = (
"name" => "kate",
"sex" => "men",
"age" => 29
);

print %profile;