test5:{ @list = ("abcdef", "ghijkl", "Dumbo"); foreach $item ("abcdef", "ghijkl", "Dumbo" ){ #This fails "modifying a Read only Constant" # foreach $item (@list ){ # this works $item =~ s/abc/zzzzzz/ ; print (" $item \n"); } }