#! /usr/bin/perl -w
open "/home/words";
$hashvar1 {The} = "the";
$hashvar1 {Hi} = "hi";
$hashvar1 {Linux} = "linux";
@arrayhash1 = %hashvar1;
say "@arrayhash1";