Select Code to Download

@array = (2, 25, 2, 26, 2, 27, 2, 28, 2, 29);

...
print "Slot: $array[$i*2], port: $array[$i*2 + 1]\n"
}