#!/usr/bin/perl -w
use strict;
use Data::Dumper::Simple;

# Your code goes here

print Dumper(@files);
[download]

I'd say that there is a very good chance that the output of that will give you your answer.