Select Code to Download

use warnings;

...
for('1', '1.1', 1, 1.1, $o) {
   print wotisit($_), "\n";
}

string
string
number
number
something else