$l = join '', map {$Chars[rand @Chars]} 1..7*($ARGV[0] ||= 1);