Select Code to Download

#!/usr/bin/perl

...
  }

use Data::Dump 'dd'; dd \%hostspershare;

{
  "kmhpemcfspa21:/oracle_depot" => ["cgva1lbpmor001m", "thirdhost"],
  "kmhpemcfspa21:/oracle_dump"  => ["cgva1lbpmor001m", "otherhost"],
  "kmhpemcfspa21:/oracle_other" => ["thirdhost"],
}