use warnings;
use strict;

use strict;

my $string0 = "Jessy";
my $string1 = "Bob";
my $string2 = "Nancy";

my $num = 0;

while( $num != 3 ) {
  print eval "\$string$num";
  $num++
}

##</code><code>##

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