#!/usr/bin/perl
use strict;
use warnings;
my $names;
my @name;
while(<DATA>){

if(/{(.*)}/){

my @names_hash = qw{NAME AGE};
$names = $1;
push (@name, $names);

next if $names !(exists(@names_hash));
print $names;
}
}
print @name;
__DATA__
{NAME}
{AGE}
{SEX}
{ADDRESS}
{ADDRESS}