my %foo = ();

@foo{ 'one', 'two' } = (1, 2);
@foo{ 'three', 'four' } = (3, 4);

print keys %foo;