my $record = REC->new( %data ); 
print Dumper( $record );