sub breakEmailAddress
{
		my ($address) = shift(@_); 
		@components = split('@', $address); 
		@counter =  split('@',$address);	
		return (@components,@counter); 
}

(@first,@second) = &breakEmailAddress('john@some.domain.com');

print"FirstArr:@first\n";
print"SecondArr: @second\n";