#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Scalar::Readonly ':all';
my $count = 0;
my @savearr = ();
eval {
sub make {
    save('begin '.$count++.' end');
}
sub save {
    readonly_on($_[0]); #comment this out
    push(@savearr, \$_[0]);
}
for(0..3) {
    make();
}
print(Dumper(\@savearr));
};
if($@) {
print("failed in eval with\n\"$@\"\n".Dumper(\@savearr));    
}