interpolateArrays->Strings2.pl

#! /usr/perl
use warnings;

$email = 'fred@bedrock.com';
     
     print "contact me: $email\n";

@fred = qw(eating rocks is wrong);
$fred = "painful";

# print "this is $fred[3]\n";
print "this is ${fred}[3]\n";
print "this is $fred"."[3]\n";
print "this is $fred\[3]\n";