Select Code to Download

my @files;
my @plays;

...
    $files[@files] = $filelist{$_};
    $plays[@plays] = $playlist{$_};
}

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