#!/usr/bin/perl -w

use strict;

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

my $num = 0;

while( $num != 3 ) {
  print eval ('$string' . $num),$/;
  $num++;
}
__END__
Jessy
Bob
Nancy