my @files;
my @plays;

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

my @sorted = (0 .. $#files);
@sorted = sort {$files[$a] cmp $files[$b]} @sorted;
@files  = @files[@sorted];
@plays  = @plays[@sorted];

for (my $i=0; $i<@files; $i++)
{
	print "$files[$i]   \<\=\>   $plays[$i]\n"
}