for( qw( Gqw pWr lpl bnT bnp Dwg hav ) ){ my $num = $_; #for( 60 ... 2187 ){ $num = ++$num } # the above changed to the below to "deobfuscate" the deobfuscation. for( 60 .. 2187 ){ $num++; } push( @array, $num ); } print "$_\n" for @array; OUTPUT: Jus tAn oth erP erl Hac ker