use Term::ReadLine;

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

my $term-> new Term::ReadLine 'user input';
for my $property ( keys %$record ) {
  my $response = $term->readline($property,$record->{$property});
  $record->{$property} = $response;
}