...
my @fields = (split ' ', $line)[1,3,4,5,7];
...