print ("The second element  is $boxed[1]");
All is fine and Bucket Man appears.

##</code><code>##

$data_path = "saved.data";
$now = time();
open(O, ">$data_path"); 
print O "@boxed";
close(O);

##</code><code>##

$data_file="saved.data";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);