#! /usr/bin/perl

use Data::Dumper;

my %hash = ();
my @files = ();

$hash{FILES} = \@files;
print Dumper(\%hash);

push(@{$hash{FILES}},'test');
print Dumper(\%hash);