#!/usr/bin/perl

$a = (2,4,6,8);
print '$a=',$a,"\n";

@b = (2,4,6,8);
print '@b=',@b,"\n";

$a = @b;
print '$a=',$a,"\n";

print 'index of last item ($#b) = ',$#b,"\n";
print 'last item ($b[$#b]) = ',$b[$#b],"\n";