Select Code to Download

use warnings;
use strict;
...
  print eval "\$string$num";
  $num++
}

my @strings = ("Jessy", "Bob", "Nancy");
print join "", @strings;