open my $fh,"+<four_comma.txt" or die "Cannot open text $!";
my $i=0;
while(<$fh>){
  say $_;
  say ++$i;
}