my %test = qw(
    @song_titles, @song_files
);
[download]

my %test = ('@song_titles', '@song_files');
[download]

It will also toss an error if warnings are on....

-Blake

<cheek tongue="1">Your reply is correct, but your example isn't quite right</cheek>

I missed the qw which would indeed mean that the other '@lists' would be treated as strings but your example will yield a valid hash (no warning) since you have an even number of elements in the list:

my %test = ( '@song_titles' => '@song_files' );
[download]

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"
Will code for food - looking for work - London - CV

Just to clarify (and yes, I know we're way off in left field here....) the warning I was speaking of is thrown by the qw() code whenever it gets passed a comma (or #). From perlop:

qw/STRING/
...
A common mistake is to try to separate the words with comma or to put comments into a multi-line "qw"-string. For this reason, the "use warnings" pragma and the -w switch (that is, the "$^W" variable) produces warnings if the STRING contains the "," or the "#" character.

% perl -we 'qw(@song_titles, @song_files)'
Possible attempt to separate words with commas at -e line 1.
 [snip void context errors]
[download]

On a side note, I should have realized that you just misread the qw. A quick /msg would have probably been a better response than the node I posted.... ;-)

-Blake

thanks for the info. This is what I've got to work so far.

# 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];
    }
[download]

Whatever is selected is then passed on to another subroutine that takes the value of "file" and deletes the file

# check for tainted data
my $files = $q->param( "files") || error( $q, "couldn't read File valu
+e");
$files =~ /^([\/.\w.]+)$/;
# The "untainted" file is now in $1
$files = $1;
die "Bad filename" unless $files;

foreach ($files){
unlink($_);
}
[download]

However I still can't figure out how I would delete the song title that goes with the song file. How could I also pass the value of the key (song_title) along with the song file? also I tried doing

my %test = (@song_titles, @song_files);
[download]

however, it printed out the first key right (song_title) but the next key contained the song file as the key and so on ... thanks in advance...