push @{ $info{lastnames} }, $lastname;

##</code><code>##

my @records;
...
{
  my %info;
  my ... = split /\|/, $line;
  push @records, \%info;
}