for qw

#!/usr/local/bin/perl
package main;
use strict;
my %hash = ();
$hash{$_} = 1 for qw(nickname article);
foreach my $key ( keys( %hash ) ) {
print "key: $key\n";
print "value: $hash{$key} \n"
}