#!/usr/pin/perl -w
use strict;
my $HASH;
my $value = "Some Data";

push(@{$HASH}, "data1");
push(@{$HASH}, "data2");
push(@{$HASH}, "data3");

#To dump the whole hash
 use Data::Dumper;
 print STDERR Data::Dumper->Dump([$HASH])."\n";

#to retive individual values
 print STDERR $HASH->[0]."\n";

#OR for looping

foreach(@{$HASH}){
  print STDERR "Key: $_ \n";

}