Select Code to Download

#!/bin/env perl
my %hash = (one => 1, two => 1, three => 1);
map { $hash{$_} = 0 } ('two', 'three');