Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
my $VAR1; eval $saved_data;
my @data2 = @{$VAR1};
print "AFTER: ",join(',',@data2),"\n";

Select or download this
```
BEFORE: 0,1,2,3
AFTER: 0,1,2,3
```