>>509
use strict;
use warnings;

sub age { ("taro", 20, "hanako", 19) }

open(IN, "<", \"Hello,\nworld\n") or die $!;
my @lines = <IN>;
close IN;

foreach (@lines) {
my %ageHash = age();
print $ageHash{"taro"}, $ageHash{"hanako"}, "\n";
}

print @lines;

特に問題なさそうだが。