print "array scalar context - ".@array."\n";
print "arrayref scalar context - ".@$arrayref."\n";