my @NameArray;

$NameArray[0]{firstname} = "Jan";
$NameArray[0]{famname}   = "Jansen";
$NameArray[0]{street}    = "ParkAvenue";

##</code><code>##

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;
}

##</code><code>##


my @NameArray;

for ($i; $i < $endvalue; $i++)
{ NameArray[$i] = addnaw(); # Fault code
}