#!/usr/bin perl -w
use strict;
use Data::Dumper;

my @LoL = ( ["aa", 1, 2, 3, "Hi Mom!"],
            ["bb", 2, 3, 5, "No soup for you!"],
            ["cc", 3, 1, 2, "Not me!"],
            ["def", 4, 4, 4, "Like gag me with a spoon!"],
);

{ #block for localizing
  open FOUT, ">./datafile";
  local $\=$/; #Record separator set to input separator.
  local $"=$;; #Array interpolation separator set to subscript separator.
  print FOUT "@$_" foreach (@LoL);
  close FOUT;
}

my @newLoL;

{ #block for localizing
  open FIN, "<./datafile";
  push (@newLoL, [split m/$;/]) while (<FIN>);
  close FIN;
}

print Dumper(\@LoL, \@newLoL);