foreach $r(@se)
{
@y=split(//,$r);
}