my @files;
my @plays;

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

##</code><code>##

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