Select Code to Download

open (PIR,'/home/guest/sampir.txt');
my @arr = ();
...
        push @se, $_;
    }
}

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