foreach (@{$self->{FILES}})
{
print $_,"\n";
}