foreach my $key(keys %ret) {
	my $value = $ret{$key};	
	my @arr = @$value;
	print "$key\n";
		
	foreach my $u(@lines)
		{
		print "$key @$u\n";
		}
}