@msg=qw/106 117 115 116 32 97 110 111 116 104 101 114 32 112 101 114 108 32 104 97 99 107 101 114/; foreach $item (@msg) {print(chr($item))} # Someday