Help for this page
open (PIR,'/home/guest/sampir.txt'); my @arr = (); ... push @se, $_; } }
foreach $r(@se) { @y=split(//,$r); }