my @files;
my @plays;

for (keys %filelist)
{
    $files[@files] = $filelist{$_};
    $plays[@plays] = $playlist{$_};
}
[download]

Just a small remark, you don't need a for-loop for that, I'd use values and a hash slice:

my @files = values %filelist;
my @plays = @playlist{ keys %filelist };
[download]

-- Hofmator