#!/usr/bin/perl
$data[1] = 1;
$data[100] = 100;
print $#data;
