Help for this page
$VAR1 = [ [ {},... ],[ {},... ]...];
$VAR1 = [ {},... ],[ {},... ]...;
#!/usr/bin/perl ... return \@all }