# brings in arrays song_title and song_files
&song_list;
&file_list;

#works by single elements
my %test = ($song_titles[0], $song_files[0],
$song_titles[1], $song_files[1]);

foreach my $key (keys %test) {
	print qq[<br> Delete this File: $key <INPUT TYPE="checkbox" NAME="files" VALUE="$test{$key}">\n];
	}