foreach my $key ( keys %hash ) { #print "$key: @{ $hash{$key} }\n" #print "$key: \n"; for my $i (1..$#{$hash{$key}}) { print $hash{$key}[0],"\t" ,$hash{$key}[$i], "\n"; } }