wusphere, while I prefer naChoZ's style, if you like the multi-line style, consider using

    my $recCount         = $_[0];
    my $tlrRecordCount   = $_[1];
    my $verRecordCount   = $_[2];
[download]

since it is much more efficient then taking array slices:

    my ($recCount)       = @_[0];
    my ($tlrRecordCount) = @_[1];
    my ($verRecordCount) = @_[2];
[download]

$array[num] means "get element num from the array @array".

@array[num] means "create an array consiting of the element num of the array @array".