#!/usr/bin/perl
  
# Initializing the array
@a = (1, 2, 3);
  
# Assigning the array to a scalar
# variable which stores size of
# the array
s = @a;
  
# Printing the size
print "Size of the Array iss";

Size of the Array is 3

#!/usr/bin/perl
  
# Initializing the array
@a = (1, 2, 3);
  
# Store the value at any index
# Let's take index 15 here,
a[15] = 20;
  
# Printing the Array
print "Array is @a";
  
# Getting the maximum index 
# of the arrayi = #a;
  
# Printing the Max. Index
print "\nMaximum index isi";

Array is 1 2 3             20
Maximum index is 15