open STOCKS, ">",  $dataFileName or die $!;
my $price;
PRICES:
for my $category ( qw( high low average purple green ) ) {
    for my year ( 1990..2000 ) {
        last PRICES unless $price = <STOCKS>; # break loop at eof.
        $prices{$category}{$year} = $price;
    }
}