Select Code to Download

use strict;
use Tie::DxHash;
...
    print "$key, " foreach ($foo{$key})
}

%hash = ( one => [1.2, 1.6, 1.9],
          two => [2],
          three => [3]);