foreach my $elem (@vgmap) { printf "$elem->{node}:$elem->{vg}:$elem->{maj_num}\n"; }