Select Code to Download

$main::a = [0.25];
push @{main::hd}, [@main::a];

@hd = ( [] );
$a = [0.25]
$b = [0.25, 0.5];
push @hd, $a;
push @hd, $b;