open my $fh1,'<',"NRoomch.txt";
my @a = <$fh1>; 
my @arr;
 for  $i (0..$#a){
  my @b = split(/,/,$a[$i]);
    for $j (0..$#b) {
        $b[$j] =s~/"//g;
if ($j==1 && my @arr = grep { $_ =~ /\"1"$/ } @b);
        @arr = map{$_ = "P"} @arr;            
        else
        @arr = map {$b[$j] - 1} (1..$#b);
        print @arr;
    };
 };
close($fh1);