#!/usr/bin/perl

@disk_cap = (50, 30, 40, 'fifty five',66,80,90);
$size_of_array_disk_cap = @disk_cap;
$max_index=@disk_cap - 1;
@cards = ("csc01", "xcc360g", "xcc80g");
@line_cards = qw(cef5 cef4c xa10g);
print "disk_cap = @disk_cap\n";
print "disk_cap[0] = $disk_cap[0]\n";
print "line_cards[0] = $cards[0] cards[-1] = $cards[-1]\n";
print "size of array \@disk_cap = $size_of_array_disk_cap max_index = $max_index\n";