Help for this page
#!/usr/bin/perl ... use Data::Dump 'dd'; dd \@data; unlink $dbfile; # cleanup
[2, 2, "two"] [1, 1, "one"]