Help for this page

Select Code to Download


  1. or download this
    use Tie::IxHash;
    
    ...
    push @data, Tie::IxHash->new( one => two, three => four);
    
    print join(", ", keys %{$data[1]});  # one, three