Read split

#!perl
use strict;

my %hash = (
test1 => "1
       2
       3",
test2 => "4
       5
       6",
);
for my $key (keys %hash){
  my $lines = split "\n",$hash{$key};
  print "$key $lines\n";
}
[download]