# Ugly, I know, but it should work.  The @temp array gets
# overwritten each time through the loop with $_\n.  Then,
# it gets pushed onto the end of the @file array.
while (<$file>) {
  print "$_\n";
  $temp[0] = "$_\n";
  push( @file, @temp);
}
[download]

update (broquaint): added <code> tags