qw in perl

Used to set values in array or hash variable without using quotes.

@x = qw(value1 value2 value3);

%x = qw(
key1 value1
key2 value2
key3 value3
);