Um no. map doesn't like changing arrays either:

#!/usr/bin/perl
use Devel::Peek;
@a = (1,2);
@b = map { pop @a; Dump $_; } @a;


$ perl5100 /tmp/p
SV = IV(0x9cd41d4) at 0x9cd41d8
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
SV = UNKNOWN(0xff) (0x9cd40b8) at 0x9cd4308
  REFCNT = 0
  FLAGS = ()
[download]

Dave.