while(<DATA>) {
    my @arr = ();
    push @arr, scalar(my @s=split/\s+/,$`)+1 while /\b$word\b/g;
    print "The word repeated in Line $. and in column ",
        join("\t",@arr) ,"\n"
            if @arr;
}