my @records;

while (<$inData) {
    my ($name, $age) = split ',';
    push @records, {name => $name, age => $age};
}