#!/usr/bin/perl

@w = qw/a b + * \ x y = . - z/; 
print join(" : ", @w),$/;
for $i ( @w ) { $h{$i} = " okay\n" }
print join "", %h;

__OUTPUT__
a : b : + : * : \ : x : y : = : . : - : z
+ okay
a okay
- okay
z okay
* okay
x okay
= okay
\ okay
b okay
y okay
. okay