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