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