Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...


print Dumper(@host);

filename: hosts.txt 
filename: hosts1.txt 
$VAR1 = {
...
          'address' => '-------------',
          'alias' => 'test1.txt'
        };