$main::hd=[[]]; $main::a = [0.25]; $main::b = [0.25,0.5]; $main::c = [1,0.75,0.75]; push @{main::hd}, [@main::a]; push @{main::hd}, [@main::b]; push @{main::hd}, [@main::c];