#!/usr/local/bin/perl -w
# varbind-array-bound.pl -- Array mit Ueberpruefung der Arraygrenzen.

use ArrayBound;

$maxbound = 10;
tie @array, 'ArrayBound', $maxbound or die "can't tie Array: $!\n";

while (<DATA>) {
    ($index, $value) = split(/\s+/);
    print "Old value: ($index)", $array[$index] || "undef", "\t";
    print "New value: $value\n"; $array[$index] = $value;
}

__DATA__
5  1234
3  7723
5  9999
9  1212
17 7343
2  1121