use strict;

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

for my $num (0..3) {
  no strict 'refs'; # Thanks for the correction, tinita
  print "${qq(string$num)}\n";
}