print "intesection is @intersection\n";

##</code><code>##

my @A = (\@S1, \@S2, \@S3);