works fine for me too...

[osx:share/mysql/sql-bench] me% perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 1 RC3) configur
+ation:
  Platform:
    osname=darwin, osvers=7.0, archname=darwin-thread-multi-2level
    uname='darwin hampsten 7.0 darwin kernel version 6.0: fri jul 25 1
+6:58:41 pdt 2003; root:xnu-344.frankd.rootsxnu-344.frankd~objrelease_
+ppc power macintosh powerpc '
    config_args='-ds -e -Dprefix=/usr -Dccflags=-g  -pipe  -Dldflags=-
+Dman3ext=3pm -Duseithreads -Duseshrplib'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemulti
+plicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-g -pipe -pipe -fno-common -DPERL_DARWIN -no-cp
+p-precomp -fno-strict-aliasing -I/usr/local/include',

...
[download]

main::(-e:1):   1
  DB<1> ($a,b) = chop
Can't modify constant item in list assignment at (eval 5)[/System/Libr
+ary/Perl/5.8.1/perl5db.pl:618] line 2, at EOF
[download]