#!/usr/bin/perl -w

use strict;
use warnings;

my %hash ;
$hash{1} = ["me","you"];

foreach my $item ( @{$hash{1}} ) {
        print "$item\n";
}

exit;