What kind of arguments are you giving to unshift? If you just want to add a piece of text before a line of text just $_ = "Date\n".$_ unless $. == 1;