Select Code to Download

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

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

@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";