sub uploadPlaylist {
  for my $i ( 1 .. $numOfRandFiles ) {
    $playList{ splice @audioFiles, int rand @audioFiles, 1 } = $i;
  }
}