perl - perlで値を割り当てる方法

Question

応答でユーザー プロファイルの詳細を取得する

$response = $client->fql->query( query => 'SELECT name, email, birthday, username, first_name, last_name, pic FROM user WHERE uid = me()');

その後、次のようなステートメントを出力します。

print join "\n Name:",  sort map { $_->{name} } @$response;
print "</br>\n";
print join "\n Email:",  sort map { $_->{email} } @$response;
print "</br>\n";

sort map { $_->{email} } @$response; 

これを一つの変数に代入して値を比較・確認したい。値を変数に代入して保存するにはどうすればよいですか?