#!usr/bin/perl -w
use warnings;
my @list = ("a1", "b23", "c45", "d1");
print join (" ",@list),"\n"; 
#prints: a1 b23 c45 d1

##</code><code>##

include <stdio.h>
int main ()
{
   char *list[] = {"a1", "b23", "c45", "d1",'\0'};
   // list is an array of pointers to chars 
   char **mover;
  
   for (mover=list; *mover ;mover++)
       printf ("%s ",*mover);
   printf("\n"); 
}
// prints: a1 b23 c45 d1