while (<FILE>) {
push @array , (split /,/)[4] ;
}
print @array ;

こんな感じかな？