my $record = { name  => 'joe bloogs',
               age   => 34,
               hobby => 'chess',
             };

for my $property ( keys %$record ) {
    print STDOUT "$property:  ";
    chomp( $response = <STDIN> );	
    $record->{$property} = $response;
}