# Change this: 
for($num=0;$num<16777216;$num++)
# To this: 
for my $num (0 .. 16777216)

# And this: 
for($i=1;$i<=24;$i++) 
# Becomes this: 
for my $i (1 .. 24)