From kuritzky@math.berkeley.edu

$a=eval('(a,b)x1');
print eval('$a');

(This started out as a much more complecated program. I have simplified
it as much as possible).

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=solaris, osvers=2.5, archname=sun4-solaris
  uname='sunos bosco.berkeley.edu 5.5 generic_103093-25 sun4d sparc sunw,sparcserver-1000 '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-O', gccversion=
  cppflags=''
  ccflags =''
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =''
  libpth=/usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
  libc=/usr/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
  cccdlflags='-KPIC', lddlflags='-G'

Characteristics of this binary (from libperl)​:
  Built under solaris
  Compiled at Apr 7 1999 16​:02​:23
  @​INC​:
  /usr/local/perl5.005_03/lib/5.00503/sun4-solaris
  /usr/local/perl5.005_03/lib/5.00503
  /usr/local/perl5.005_03/lib/site_perl/5.005/sun4-solaris
  /usr/local/perl5.005_03/lib/site_perl/5.005
  .

I have also been able to reproduce this bug under Linux.