%printers = list_printers(). #### my @printers = @{ $data{name} }; my @ports = @{ $data{port} };