How to fix loop not returning in perl?

I have this code, and it is only returning one value per line, I want it to be a loop but none of my strategy is working

I tried to make it read from file but it's not working it is returning only one value

sub show_xss_bug {
    my $self = shift;
    return undef unless $self->vulnerable;
    my $uri = URI->new($self->action);
#    $uri->query_form(map { $_ => '<s>test</s>' } $self->names);
   my $filelist = <STDIN>;
  $uri->query_form(map { $_ => $filelist } $self->names);
    return $uri;
}

It's only returning one value per line and discarding everything else