sub addnaw
{ # In real a subroutine which collects a specific line
  # from a file

  my %value
  $value{firstname} = "John";
  $value{famname}   = "Johnson";
  $value{street}    = "Bellpark";
  return %values;
}