my %name; my $cur_name; while(){ chomp; my ($key,$value) = split(/:\s{2}/,$_); if ($key !~ /^$/){ if ($key =~ /^Name/){ $cur_name = $value }else{ push @{$name{$cur_name}{$key}},$value; } } }