#!/usr/bin/perl -w

use strict;

my @string = qw/Jessy Bob Nancy/;
my $num = 0;
while ( $num < @string ) {
    print "$string[$num] ";
    $num++;
}

### or, instead of a loop, just:

print "\n@string\n";