use strict;
use warnings;

my @array = ("w", "h", [1, 2, "c"]); 
foreach (@array)
{
	if(ref($_) eq 'ARRAY')
	{
		foreach (@{$_})
		{
			print $_,"\t";
		}
		print "\n";
	}
	else
	{
		print $_,"\n";
	}
}

##</code><code>##

w
h
1       2       c