#!C:\strawberry\perl\bin\perl

use strict;
use warnings;

print "Array Sample \n"
my @arrayone = ("String :","Hello","Number :",555);
print "$arrayone[0] $arrayone[1]\n";
print "$arrayone[2] $arrayone[3] \n";