foreach my $line (@{$data{$name}}) { #do something }