perl Return-Value