Select Code to Download

#!/usr/bin/perl -w

...
             @data;

print Dumper(\@sorted);

$VAR1 = [
          {
...
            'host' => 'laptop'
          }
        ];