Use $ARGV[0] and $ARGV[1] instead of @ARGV[0] and @ARGV[1] also use crypt($_[0], $salt) rather than crypt(@_, $salt)