Select Code to Download

...
while ( my $row = $csv->getline( $fh ) ) {
...

my %server_info;
while ( my $row = $csv->getline( $abc ) ) {
...
use Data::Dumper;
my $info = $server_info{ $query } || 'No results found';
print Dumper $info;