<?xml version='1.0'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:georss="http://www.georss.org/georss" xmlns:atom="http://www.w3.org/2005/Atom" >
<channel>
	<title><![CDATA[BOL: Split array in Perl !]]></title>
	<link>https://bioinformaticsonline.com/snippets/view/39456/split-array-in-perl?</link>
	<atom:link href="https://bioinformaticsonline.com/snippets/view/39456/split-array-in-perl?" rel="self" type="application/rss+xml" />
	<description><![CDATA[]]></description>
	
	<item>
	<guid isPermaLink="true">https://bioinformaticsonline.com/snippets/view/39456/split-array-in-perl</guid>
	<pubDate>Sat, 01 Jun 2019 04:23:02 -0500</pubDate>
	<link>https://bioinformaticsonline.com/snippets/view/39456/split-array-in-perl</link>
	<title><![CDATA[Split array in Perl !]]></title>
	<description><![CDATA[<code>my @tests = ( [&quot;FOO&quot;, &quot;BAR&quot;], [&quot;CRATE&quot;, &quot;TRACE&quot;], 
    [&quot;CRATE&quot;, &quot;CRATE&quot;], [&quot;TRACE&quot;, &quot;CRATE&quot;], 
    [&quot;CREATE&quot;, &quot;TRACT&quot;], [&quot;DWAYNE&quot;, &quot;DUANE&quot;], );
for my $word_pair (@tests) {
    #Nice way to split the values 
    my ($w1, $w2) = @$word_pair;
    my $simw = simw $w1, $w2;
    say &quot;distance between $w1 and $w2 is: &quot;, 1 - $simw;
}</code>]]></description>
	<dc:creator>BioJoker</dc:creator>
</item>

</channel>
</rss>