perl -e"
my @a; 
push @a, {
  name=>'fred',
  surname=>'bloggs',
  age=>'ancient',
  dob=>'0/0/0000',
  empno=>1234567890
} for 1..1e6; 
sleep 10"