Elliminated Perl Warning