#!/usr/bin/perl -w

use strict;

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

my $num = 0;

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