while (my $row = <LIST> ) {
          my ($id, $first, $last, $age) = (split /[\s=]/, $row)[1, 3, 5, 7];
          push @people, {
                          'id' => "$id",
                          'first' => "$first",
                          'last' => "$last",
                          'age' => "$age"
                        };
     }