#!/usr/bin/perl

use strict;
use warnings;

my @pro = qw(1 2 3);
my %hash = ();
$hash{'a'} = \@pro;

foreach my $key (keys %hash) {
   print $_."\n" foreach(@{$hash{$key}});
}