Help for this page
$main::hd=[[]]; $main::a = [0.25]; ... push @{$main::hd}, $main::a; push @{$main::hd}, $main::b; push @{$main::hd}, $main::c;