chomp($line = < IN >);

##</code><code>##

    chomp($line = glob 'IN' );

##</code><code>##

    chomp($line = 'IN' );

##</code><code>##

    for ($i=0; $i<@xyzvals; $i++) {
        $s{$bb}{$xyz[$i]} = $xyzvals[$i];
        }

##</code><code>##

    for my $i ( 0 .. $#xyzvals ) {
        $s{ $bb }{ $xyz[ $i ] } = $xyzvals[ $i ];
        }

##</code><code>##

    @{ $s{ $bb } }{ @xyz[ 0 .. $#xyzvals ] } = @xyzvals;