{
        local $, = "|";
        print @record[1..$fields];
    }

##</code><code>##

    {
        local $" = "|";
        print "@record[1..$fields]";
    }

##</code><code>##

@number = qw(zero one two three four five six seven eight nine ten);
print "The sum of $number[1] and $number[2] is $number[1+2].\n";