Tools that may be of use in this are Text::xSV or Text::CSV and knowing about array slicing (see slices in perldata):

use strict;
use warnings;

my @column = (1 .. 9);
my @last3 = @column[-3 .. -1];

print "@last3\n";
[download]

Prints:

7 8 9
[download]