Select Code to Download

sub breakEmailAddress
{
...
my ($first, $second) = breakEmailAddress('john@some.domain.com');
print "FirstArr: @$first\n";
print "SecondArr: @$second\n";

sub breakEmailAddress
{
...

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