for my $i (0 .. $#data) {
	print $data[$i]{firstname}, "\n";	
}