#!/usr/bin/env perl
use strict;
my @chrs = split( "", "ABCD" ) ;
print " number of array elements: ", scalar(@chrs), "element 4:{", $chrs[0], "}\n" ;
exit ;
