use 5.010;
my @chunks = split " ", "Debashis Pranab roy Nagendra roy murali mohan roy";
for (1..$#chunks) {
    say $chunks[$_-1] if $chunks[$_] eq "roy";
}