Unnecessary Shell Calls

        @name=`route | awk '/ppp/ { print $8 }' | sort -u`;

        for (`route`) {
          next unless /ppp/;
          $name{(split)[7]}++;
        }
        @name = sort keys %name;