I think you might be running into trouble at:

@list = <PASSF>;
[download]

I think this will put all user input up to and including the newline into a scalar that is the first entry of your array. You might want to try something like this:

my $User_Entry = <PASSF>;
my @list = split(/ /, $User_Entry);
.
.
.
[download]

I also highly recommend the use of

use strict;
use warnings;
[download]

and even use diagnostics; They can be very helpful.

Another device that can help out a lot is to use print statements to verify that variables contain what you think they do. use Data::Dumper; can also help you know what is in a data structure.