added GetPortfolioNames sub to portfolio.pl