foreach (@filearray)
{
push (@{$array->{FILES}},$_);
}