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