Perl example: qw

#!/usr/bin/perl
@fruit = qw(Apple Banana Pear);
print "@fruit";
print "\n\n" . @fruit[0] . "\n";
print "\n" . @fruit[1] . "\n";
print "\n" . @fruit[2] . "\n";


OUTPUT
Apple Banana Pear

Apple

Banana

Pear